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LASER- INDUCED  THERMAL  DAMAGE  OF  SKIN 


INTRODUCTION 

Numerous  experimental  investigations  have  been  conducted 
to  determine  the  degree  of  bums  produced  in  skin  by  a vari- 
ety of  heat  sources  such  as  flames,  hot  water,  and  radiation 
(16,18,21,22). 

Studies  by  Henriques  (11) , Stoll  and  Greene  (21) , and 
Takata  (22)  have  used  such  data  to  develop  burn  criteria 
based  upon  transient  temperatures.  Moreover,  a number  of 
skin  models  exist  (15,21)  for  computing  skin  damage  caused 
by  simple  heating  conditions — one-dimensional,  surface  ab- 
sorption, etc.  Unfortunately  such  models  are  not  capable 
of  handling  a wide  variety  of  phenomena.  This  is  particu- 
larly true  with  variable  special  and  temporal  heating  pro- 
duced by  lasers.  What  is  needed  is  a model  capable  of 
accounting  for  two-dimensional  heat  deposition/ transfer , 
blood  flow,  spacial/ temporal  variations  of  tissue  proper- 
ties, hair  follicles,  steam  blisters,  and  evaporation  of 
water.  In  this  regard  the  Corneal  Model  (23),  developed 
for  the  USAF  School  of  Aerospace  Medicine,  Brooks  Air  Force 
Base,  provides  an  excellent  basis  from  which  to  build  such 
a model.  It  is  with  this  goal  that  this  study  is  directed. 

Specific  objectives  of  the  program  are  listed  below: 

• develop  a comprehensive  computerized  model 
capable  of  predicting  the  extent  and  degree 
of  skin  burns  produced  by  lasers 

• identify  data  required  ty  the  code  through 
literature  searches  and  experiments 

• conduct  laser  exposures  of  pigs  and  compare 
resultant  damage  with  model  predictions 

The  SKIN  MODEL  was  designed  to  predict  transient  tem- 
peratures and  thermal  damage  produced  in  skin  by  any  radially 
symmetric  laser  bean  of  normal  incidence.,  Basic  to  the  model 
is  the  use  of  an  implicit-explicit  finite  difference  tech- 
nique for  computing  transient  temperatures . This  technique 
was  originally  presented  by  Peaceman  and  Rachford  (17). 

Since  then  it  has  been  applied  to  cylindrical  coordinates 
by  Mainster  et  al.  (14),  and  used  by  Takata  et  al.  (23)  to 
predict  transient  temperatures  produced  in  eyes  by  laser 
irradiation. 


Additional  features  provided  in  the  SKIN  MODEL  are 
temporal  changes  in  optical/ thermal  properties  and  thermal 
barriers  created  by  steam  blisters.  Provisions  have  also 
been  made  for  hot  spots  created  by  the  interception  of 
radiation  by  hair  follicles.  As  with  the  eye  model,  ther- 
mal damage  is  predicted  using  Henriques  damage  integral 
(11) . This  criterion  involves  integrating  temperature- 
dependent  rates  of  damage  with  respect  to  time.  Irrever- 
sible damage  is  predicted  when  the  integral  equals  or 
exceeds  a given  value.  The  region  of  irreversible  damage 
is  predicted  by  evaluating  damage  at  various  depths  and 
radii. 


Data  for  the  computerized  model  were  obtained  from 
the  literature  as  well  as  from  IITRI  experiments.  These 
data  include  thermal  and  optical  properties  of  skin  tis- 
sues, tissue  densities  and  water  content,  blood  flow  rates, 
heat-transfer  coefficients,  and  criteria  for  predicting 
the  degree  of  bum  and  blister  formation.  Specific  ex- 
periments conducted  by  IITRI  are  presented  below: 

• measurement  of  optical  properties  of  excised 
pig  skin 

• measurement  of  heat- transfer  coefficients 
associated  with  heat  losses  from  moist  and 
from  dry  skin  to  the  surrounding  air 

• exposure  of  white  skin  pigs  to  CW  COo  laser 
(nominal  5 watts)  and  to  a pulsed  ruby  laser 
(nominal  25  joule  pulses  of  500-ysec  dura- 
tion and  nominal  10  joule  pulses  of  50-psec 
duration) 


The  pig  experiments  served  to  validate  the  model  and  to 
acquire  additional  data  for  the  model.  These  data  included 
criteria  for  the  onset  of  blister  formation  and  the  degree 
of  burn.  Medical  aspects  of  the  pig  exper  nts  were  super- 
vised by  Dr.  Larry  Zaneveld  of  the  Univerr  <>r  Illinois 
Medical  Center.  Extent  of  irreversible  ’ 5 measured 

histologically  by  Dr.  Ward  Richter  of  "y  of 

Chicago . 


Twc-thirds  of  the  predicted  del 
reversible  damage  were  within  one  r 1 4 
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No  damage  was  detected  as  a consequence  of  exposing 
pigs  to  single  ruby  laser  pulses  of  50  and  500  usee.  This 
result  conflicts  with  model  predictions  and  suggests  ap- 
preciable energy  was  lost  by  some  means  not  accounted  for 
in  the  model.  One  possibility  is  attenuation  of  the  laser 
beam  by  materials  evolved  from  the  skin  surface.  This 
appears  likely  in  that  a pronounced  cracking  sound  accom- 
panied each  exposure.  Wisps  of  smoke  or  vapor  were  observed 
immediately  following  several  exposures. 


DATA  NEEDED  BY  THE  SKIN  MODEL 

Prior  to  model  development,  a literature  search  '-.is 
conducted.  Of  primary  concern  were  property  data  with 
which  to  characterize  skin  and  subcutaneous  tissues  such  as 

• reflectance 

• absorption  coefficients 

• thermal  conductivity 

• specific  heat 

• density 

• water  content 

• blood  flow  rates 

• bum  criteria 

This  endeavor  involved  computer  searches  of  the  follow- 
ing sources 

1)  SSIE  --  Smithsonian  Science  Information 
Exchange 

2)  Biosis  --  Biological  Abstracts 

3)  Scisearch  --  Current  awareness  of  primary 
journals 

4)  Compendex  --  Engineering  Index 

5)  DDC  --  Defense  Documentation  Center 

6)  NTIS  — National  Technical  Information 
Service 

In  this  section  we  shall  present  pertinent  data  found 
in  the  literature  along  with  IITRI  measurements  of  the  opti- 
cal properties  of  pig  skin.  In  addition  heat-transfer 
coefficients  are  given  for  predicting  the  rates  of  heat 
transfer  from  skin  surfaces  to  the  surrounding  air  and 
across  steam  blisters . 


IITRI  Measurements  of  the  Optical  Properties  of  Pig  Skin 

Diffuse  reflectance  and  absorption  coefficients  of 
various  skin  specimens  were  determined  by  exposing  excised 
samples  of  pig  skin  to  radiation  of  varying  wavelengths  and 
measuring  the  reflected  and  transmitted  radiant  energy. 

This  determination  involved  use  of  the  Integrating  sphere 
shown  in  Figure  1.  Here  measurements  of  the  radiation  from 
the  sample  or  skin  specimen  are  compared  to  that  produced 
by  the  reference  beam. 

i 

To  separate  the  reflected  radiation  from  the  trans- 
mitted radiation,  two  power  measurements  were  made  with 
each  specimen.  One  measurement  was  made  with  a black  film 
on  the  unexposed  side  of  the  specimen  to  prevent  escape  of 
radiation  transmitted  through  the  specimen.  The  other 
measurement  involved  the  specimen  without  the  black  backing. 

Three  types  of  tissues  were  used,  namely 

• normal  epidermal/dermal  specimens  (5  different 
thicknesses) 

• irreversibly  thermal  damaged  epidermal/dermal 
specimens  (3  different  thicknesses) 

e normal  fat  tissues  (3  different  thicknesses) 

Skin  was  irreversibly  damaged  by  placing  a 70°C  aluminum 
disk  upon  live  skin.  Contact  was  maintained  for  1 minute. 

All  specimens  were  hairless  and  stretched  in  a sample 
holder  by  approximately  127,  in  one  direction  to  ensure  a 
flat  surface.  On  the  live  animal  the  skin  is  stretched  in 
two  directions  by  approximately  the  same  amount.  Thus,  the 
specimens  were  approximately  127.  thicker  than  when  on  the 
live  animal . 

Percentages  of  the  radiant  energy  diffusely  reflected 
and  transmitted  through  individual  specimens  are  shown  by 
the  dashed  curves  of  Figures  2,  3,  and  4.  The  solid  curve 
represents  the  sum  of  these  curves.  Absorption  coefficients 
were  obtained  using  Beer's  Law  namely 

q - exp (-as)  (1) 

where  q » fraction  of  absorbed  radiant  intensity 
transmitted  through  the  specimen 

a “ absorption  coefficient 

z ■ specimen  thickness 
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Figure  1.  Schematic  of  integrating-sphere  reflectometer . 
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Figure  2.  Optical  data  for  undamaged  pig  skin  (0.18-cm  thick). 


NOliViaVM  1N3Q 1 ONI  JO  39ViN30«3d 


WAVELENGTH, urn 

Figure  3.  Optical  data  for  thermally  damaged  pig  skin  (0.142-cm  thick) 


Figure  4.  Optical  data  for  pig  fat  (0.169-cm  thick) 


Solving  equation  1 for  a yields 


a - -ln(q)/z  (2) 

Absorption  coefficients  obtained  from  equation  2 are  shown 
in  Table  1 for  10  skin  specimens  over  wavelengths  ranging 
from  0.33  to  2.6  ym.  It  may  be  observed  that  the  coeffi- 
cients for  the  two  fat  specimens  are  in  good  agreement  with 
each  other  while  the  coefficients  for  normal  skin  vary  con- 
siderably. Particularly  noteworthy  are  the  higher  absorp- 
tion coefficients  with  the  thinner  specimens  of  skin  which 
suggest  greater  absorption  (percentagewise)  by  the  epidermal 
and  shallow  dermal  tissues  than  by  the  deeper  dermal  tissues. 
Such  absorption  is  less  evident  with  irreversibly  damaged 
skin. 


The  coefficients  for  the  deeper  dermal  tissues  were 
determined  by  the  following  analysis  using  the  absorption 
coefficients  for  the  thinner  specimens.  The  mean  value  aQ 
of  the  coefficients  for  the  two  thinner  specimens  shall 
be  considered  to  apply  to  some  unknown  depth  Zp,  which  re- 
mains to  be  determined.  Beyond  the  depth  zQ  the  coefficient 
will  be  represented  by  a,.  Using  Beer's  Law,  the  fraction 
of  the  nonreflected  radiant  flux  passing  through  a depth 
z greater  than  zQ  is  given  by 

q = exp-(a0zo+a1(z-zo)>  (3) 

To  determine  the  coefficient  ai  for  the  deeper  thermal  tis- 
sues, we  shall  use  the  transmission  data  for  each  of  the 
three  thicker  specimens  presented  in  Table  1.  Each  speci- 
men will  yield  a somewhat  different  oh  value  according  to 
the  value  selected  for  z0.  Basic  to  this  analysis  is  the 
choice  of  zQ  yielding  the  most  consistent  a,  values  for  the 
three  thickest  specimens.  For  each  trial  z£  value,  the 
deviations  of  the  individual  a]^  values  from  their  mean  value 
were  squared  and  summed  over  each  of  the  wavelengths  con- 
sidered. This  procedure  was  performed  using  a variety  of 
z«  values  until  the  sum  of  the  squares  of  the  deviation  was 
minimal.  By  this  means  the  most  consistent  values  were 
found  to  occur  with  a zQ  value  of  0.054  cm. 

Results  of  this  endeavor  for  normal  skin  are  presented 
in  Table  2.  Included  in  Table  2 are  the  mean  values  of  co- 
efficients measured  with  irreversibly  thermal  damaged  skin 
and  with  normal  fat.  In  addition,  mean  reflection  data  are 
presented  for  the  thicker  specimens. 
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TABLE  1.  EXPERIMENTALLY  DETERMINED  ABSORPTION  COEFFICIENTS  OF  VARIOUS  PIG  TISSUES 
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‘Depths  measured  from  surface  of  skin. 


Use  of  two  absorption  coefficients  for  the  skin  is  con- 
sistent  with  the  measurements  involving  fair-skinned  human 
beings  shown  in  Figure  5 for  wavelengths  from  0.3  to  1.0  ym. 
Beyond  1.0  ym,  Figure  5 presents  only  a single  absorption 
coefficient  and  is  in  variance  with  data  presented  in  Table  2. 
On  comparing  the  results  of  Figure  5 with  the  coefficients 
of  Table  2 for  the  shorter  wavelengths  and  the  mean  coeffi- 
cients of  Table  1 for  the  longer  wavelengths , observe  that 
our  values  are  lower  across  the  entire  spectrum.  This 
observation  suggests  that  the  skin  of  young  pigs  transmits 
radiation  better  than  fair- skinned  human  beings. 


0 0.2  0.6  1.0  1.4  1.8  2.2  2.6 


Wavelength,  ym 

Figure  5.  Linear  absorption  coefficients  of  fair-skinned 
humans  from  in  vivo  measurements  (ref.  6) . 

• curve  for  superficial  skin  layers 

• Y2  curve  for  deeper  tissues 

Before  concluding,  it  is  important  to  recognize  that  the 
skin  specimens  were  12%  thinner  when  on  the  live  animal. 

Hence  the  critical  depth  of  0.054  cm  presented  in  Table  2 
should  be  reduced  by  12%  to  0.048  cm.  Coefficients  remain 
the  same. 
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TABLE  2.  SUMMARY  OF  OPTICAL  PROPERTIES  FOR  VARIOUS  PIG  TISSUES 
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of  3 specimens  ranging  in  thickness  from  0.087  to  0.142 


Optical  Properties  of  Human  Skin  and  Water 

Figures  5 through  7 present  optical  properties  of  human 
sk5n  found  in  the  literature.  Figure  6 shows  the  reflectance 
of  white  and  black  skin  over  wavelengths  from  0.4  to  40.0  ym 
(JO).  Notice  that  skin  pigmentation  is  important  for  wave- 
lengths below  about  2 ym.  Beyond  2 ym  pigmentation  is  not 
important . 


WAVELENGTH,  pm 

Figure  6.  Spectral  reflectance  of  white  and  negro  skin 
(from  ref.  10) 

Figure  7 presents  transmittance  data  (8)  for  a 0.003-cm 
thick  layer  of  wet  and  dry  epidermis . IITRI  calculations 
of  the  absorption  coefficient  are  presented  at  the  right  ot 
the  figure.  Over  wavelengths  from  1.0  to  2.4  ym,  it  may  be 
observed  that  the  coefficients  for  thin  epidermal  layers 
are  much  larger  than  the  coefficients  for  the  entire  skin 
presented  in  Figure  5.  This  observation  suggests  there 
should  be  twd  absorption  coefficients  for  the  skin- -one  for 
the  outer  epidermal  layer  and  one  for  the  remainder  or  the 
skin  as  was  found  for  pig  skin.  Table  3 presents  our  best 
estimates  of  the  reflectance  and  absorption  coefficients 
of  human  skin  based  upon  the  literature,  and  IITRI  measure- 
ments using  pig  skin. 
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Figure  7.  Transmission  spectrum  of  human  epidermis 

(0.003  cm  thick),  wet  and  dry  (from  ref.  8). 


Absorption  coefficients  could  not  be  found  for  skin 
tissues  deeper  than  0.003  cm  for  wavelengths  beyond  2.4  um. 

4 vS  rf&ar<*  we  recommend  using  the  values  for  water  shown 
in  Table  4 (7).  This  recommendation  is  made  for  two  reasons. 
First,  the  fraction  of  the  radiant  intensity  passing  through 
the  thin  (0.003  cm)  outer  layer  of  epidermis  is  usually 
small  at  the  longer  wavelengths.  Secondly,  water  present 
in  the  tissues  has  very  large  absorption  values  at  wave- 
lengths beyond  2.4  pm.  The  result  is  very  shallow  penetra- 
tion of  the  radiant  energy  beyond  the  relatively  thin  epi- 
demal  layer.  Epidermal  layers  are  of  the  order  of  0.01  cm 
thick  as  contrasted  with  values  of  the  order  of  0.2  cm  for 
dermal  layers. 


Thermal  Properties  of  Skin 

The  most  important  parameter  affecting  the  thermal  pro- 
perties is  the  amount  of  water  in  the  tissues.  Water  is 
important  in  that  it  is  an  excellent  heat  sink  as  well  as  a 
relatively  good  conductor  of  heat.  By  comparison,  the  ef- 
fects of  temperature  upon  thermal  properties  are*  of  secondary 
importance  and  hence  will  not  be  considered. 


TABLE  3.  OPTICAL  PROPERTIES  OF  HUMAN  SKIN 


Absorption  coefficients  Absorption 

Wavelength,  Reflection"  (normal  tissues) , 1/ctn coefficients® , 


(pm) 

White 

Negro 

Sweatb 

Outer  O.Ofil  cm 
of  epidermis0 

Remaining 

skind 

Fate 

(irreversibly 
damaged  tissues; 
1/cm 

0.33 

(35) 

- 

0 

200 

40 

22 

53 

0.40 

22 

9 

0 

110 

21 

20 

39 

0.50 

38 

10 

0 

55 

13 

13 

19 

0.60 

38 

12 

0 

29 

12 

12 

15 

0.65 

37 

15 

0 

25 

S 

11 

12 

0.70 

68 

22 

0 

40 

9 

10 

12 

0.80 

67 

37 

0 

16 

10 

10 

10 

0.90 

57 

39 

0 

13 

12 

10 

10 

1.00 

5’ 

38 

0 

238 

13 

10 

10 

1.10 

58 

40 

0 

231 

13 

10 

10 

1.20 

58 

40 

i 

233 

12 

12 

12 

1.42 

35 

27 

1 

217 

31 

24 

34 

1.70 

13 

11 

7 

231 

20 

27 

25 

1.85 

11 

9 

23 

205 

40 

28 

35 

2.20 

3 

3 

17 

202 

30 

23 

43 

2.40 

3 

3 

50 

244 

50 

28 

54 

3.00 

2 

2 

11394 

1448  ' 

- 

- 

- 

4.00 

2 

2 

145 

380 

- 

- 

- 

4.70 

2 

2 

420 

572 

- 

- 

- 

5.00 

2 

2 

312 

401 

- 

- 

- 

6.00 

2 

2 

2241 

1230 

- 

- 

- 

7.00 

1 

1 

574 

999 

- 

- 

- 

8.00 

1 

1 

539 

921 

- 

- 

- 

9.00 

1 

1 

537 

821 

- 

- 

- 

10.00 

1 

1 

638 

727 

- 

- 

- 

11.00 

1 

1 

1106 

911 

- 

- 

- 

•Values 

^Results 

cValues 

from  Figure  6,  reflection  at  0.33  pm  from  Table  2. 

for  sweat  taken  from  Table  4 for  water. 

below  1 pm  from  Figure  5;  other  values  from  Figure 

7. 

d Values  from  Figure  5. 


•Values  from  Table  2. 


19 


TABLE  4.  ABSORPTION  CONSTANTS  OF  WATER  (ref.  7) 


0.200 

6.9U5 

•10‘2 

0.900 

6.7858  -10"2 

3.400 

7.2072 -102 

0.2?.  5 

2.7367 

•10"2 

0.925 

1.4400- 10" 1 

3.450 

4.8080 -102 

0.250 

1.6839 

•10"2 

0.950 

3.8757  -10"1 

3.500 

3.3750 -102 

0.275 

1.0739 

•10'2 

0.975 

4.4852  -10'1 

3.600 

1.7977  -102 

•0.300 

6.7021 

•10"3 

l.OOC 

3.6317  -lO*1 

3.700 

1.2227 >102 

0.325 

4.1759 

•10-3 

1.200 

1.0357 

3.800 

1.1244  -102 

0.350 

2.3338 

•10“3 

1.400 

1.2387  -10+l 

3.900 

1.2244 -102 

0.375 

1.1729 

•10“3 

1.600 

6.7152 

4.000 

1.4451 -102 

0.400 

5.8434 

■10"4 

1.800 

8.0285 

4.100 

1.7225 -102 

0.425 

3.8438 

•10"4 

2.000 

6.9115  -10+1 

4.200 

2.0585  -102 

0.450 

2.8484 

•10"4 

2.200 

1.6508 -10+1 

4.300 

2.4694 >102 

0.475 

2.4736 

•10'4 

2.400 

5.0056  -10+1 

4.400 

2.9417 -102 

0.500 

2.5133 

•1J"4 

2.600 

1.5321 -10+2 

4.500 

3.7420 -102 

0.525 

3.1595 

•10'4 

2.650 

3.1772  -102 

4.600 

4.0158 -102 

0.550 

4.4782 

•10"4 

2.700 

8.8430 -102 

4.700 

4.1977  -102 

0.575 

7.8676 

•10"4 

2.750 

2.6961 -103 

4.800 

3.9270 -102 

0.600 

2.2829 

•10"3 

2.800 

5.1612 -103 

4.900 

3.5135  -102 

0.625 

2.7948 

•10"3 

2.850 

8.1571 -103 

5.000 

3.1165 -102 

0.650 

3.1706 

•10"3 

2.900 

1.1613  104 

5.100 

2.7350 -102 

0.675 

4.1516 

•10“3 

2.950 

1.2694 -104 

5.200 

2.4408  -102 

0.700 

6.0139 

•10"3 

3.000 

1.1394 -104 

5.300 

2.3236 -102 

0.725 

1.5860 

•10'2 

3.050 

9.8883  -103 

5.400 

2.3969  102 

o.rsr 

2.6138 

•10“2 

3.100 

7.7830.1O3 

5.500 

2.6504 -102 

0.775 

2.3998 

•10"2 

3.150 

5.3856 -103 

5.600 

3.1865  -102 

o.soo 

1.9635 

•10~2 

3.200 

3.6285  -103 

5.700 

4.4754  102 

0.825 

2.7722 

•10"2 

3.250 

2.3586 -103 

5.800 

7.1493  102 

0.850 

4.3317 

•10"2 

3.300 

1.4013  -103 

5.900 

1.3248 -103 

C.375 

5.6154 

•10“2 

3.350 

9.7905  -102 

6.000 

2.241O.I03 

20 


TABLE  4 (Continued) 


a(cm 

6.100 

2.6987 -103 

9.800 

6.200 

1.7836-103 

10.000 

6.300 

1. 1370 • 103 

10.500' 

6.400 

8.8161-102 

11.000 

6.500 

7.5785  -102 

li.500 

6.600 

6.7782  102 

12 . 000 

6.700 

6.3207 -102 

12.500 

6.800 

6.0430 -102 

13 . 000 

6.900 

5.8643 -102 

13.500 

7.000 

5.7446 -102 

14.000 

7.100 

5.6637  -102 

14.500 

7.200 

5.6025 -102 

15.000 

7.300 

5 .5430  -102 

15.500 

7.400 

5.5020 -102 

16.000 

7.500 

5.4622 -102 

16.500 

7.600 

5.4234 -102 

17.000 

7.700 

5.4019 -102 

17.500 

7.800 

5.3971 -102 

18.000 

7.900 

5.3924 -102 

18.500 

8.000 

5.3878  -102 

19.000 

8.200 

5.3790 -102 

19.500 

8.400 

5.4006  -102 

20.000 

8.600 

5.4357  -102 

21.000 

8.800 

5.4978  -102 

22.000 

9.000 

5.5711 -102 

23.000 

9.200 

5.6685  -102 

24.000 

9.400 

5.7886  -102 

25.000 

9.600 

5.9429  102 

26.000 

6 . 142 1 * 102 

27.000 

1.6011 -103 

S.3837-102 

28.000 

1.5169 -103 

7.9228  -102 

29.000 

1.4430 -103 

1.1058 -103 

30.000 

1.3739 -103 

1.5517 -103 

32.000 

1.2724 -Ur 

2.0839 -103 

34.000 

1.2160  103 

2.6038  -103 

36.000 

1.1973  -103 

2.9483  -103 

38.000 

1.1938 -103 

3.1928  -103 

40.000 

1.2095 -103 

3.3211  -103 

42.000 

1.2237 -103 

3.3626  -103 

44.000 

1.2452  103 

3.3678  -103 

46.000 

1.2621103 

3.3564  -103 

48.000 

1.2776  103 

3.3144 -103 

50.000 

1.2918  103 

3.2596  -103 

60.000 

1.2294 -103 

3.1712  -103 

70.000 

1.0340103 

3.0806  *103 

80.000 

8.5923  102 

2.9740 -103 

90.000 

7.4840102 

2.8597  -103 

100.000 

6.6853  102 

2.7382  -103 

110.000 

6.0661 -102 

2.6035  -103 

120.000 

5.5083 -102 

2.4693  -103 

130.000 

4.9686 -102 

2.2859  *103 

140.000 

4.4880  102 

2.1306  -103 

150,000 

4.1469  icf 

2 . 0052  -103 

160.000 

3.8956 -102 

1.8902  -103 

180.000 

3.4837 -102 

1.7895  -ID3 

190.000 

3.3136 -102 

1.6916  -103 

2 CO. 000 

3.1667 -102 
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In  the  discussion  to  follow,  water  content  shall  be 
expressed  in  terms  of  g/cm^  and  represented  by  w.  This 
parameter  varies  with  the  type  of  tissue,  and  of  course 
with  water  losses  at  elevated  temperatures.  Values  of  w 
are  reported  by  Spells  (20)  as  0.20  and  0.75  g/ctrW  for  fat 
and  muscle,  respectively.  Our  measurements  for  dermal  tis- 
sues indicate  a w value  of  0.80  g/cm^.  Values  for  the 
epidermis  will  vary  widely  according  to  the  relative  hu- 
midity, temperature  of  the  skin,  and  most  importantly  with 
whether  or  not  sweat  is  present.  If  sweat  is  absent,  we 
shall  assume  that  w increases  linearly  with  depth  starting 
with  a value  of  0.2  g/cm3  at  the  surface  of  the  skin  and 
ending  with  a value  of  0.8  g/cnw  at  the  epidermal/dermal 
interface.  If  sweat  is  present,  we  shall  consider  a w 
value  of  1.05  g/cnW  at  the  surface  of  epidermis  which 
decreases  linearly  to  0.8  g/cm^  at  the  interface  with  the 
dermis . 

Specific  Heat — Awbery  and  Griffiths  (1)  have  measured 
the  specific  heat  of  meat  containing  various  amounts  of  water. 
Figure  2 of  their  paper  indicates  that  the  specific  heat  c 
varies  linearly  with  water  content  w divided  by  skin  density 
p as  follows 

C - 0.37  + 0. 63(w/p)  (4) 

When  w and  p are  set  equal  to  one,  equation  4 approximates 
the  specific  heat  of  water. 

In  equation  4,  the  value  0.37  represents  the  specific 
heat  of  the  non-water  constituents.  To  check  equation  4 
pig  fat  was  oven  dried  and  its  specific  heat  measured  as 
0.39  + 0.03  cal/g-°C.  Within  the  estimated  experimental 
error,  this  measurement  agrees  with  the  value  0.37  given  by 
equation  4. 

Thermal  Conductivity--Spells  (20)  has  plotted  the 
thermal  conductivities  or  a wide  variety  of  biological 
media  as  a function  of  water  content.  This  includes  muscle, 
fat,  kidney  tissues,  blood,  liver,  milk,  eggs,  etc.  The 
result  shows  that  a linear  relationship  exists  between 
thermal  conductivity  K and  water  content  w as  described 
below. 

K - (0.133  + 1.36  w/p)10~^  cal/cm-sec-°C.  (5) 

If  one  substitutes  a value  of  1 for  w/p,  equation  5 predicts 
a conductivity  of  1.49*10’J  cal/cm-sec- °C  which  is  in  sub- 
stantial agreement  with  the  conductivity  1.53*10“J  for  pure 
water  at  normal  body  temperature . 
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For  a typical  w/;  value  of  0.8  for  skirv  equation  5 
indicates  a thermal  conductivity  of  1.22*10'~  cal/ctn-sec-°C. 
This  valuemay  be  compared  with  values  ranging  from  0.85*10“^ 
to  1.60*10~J  found  in  the  literature  (5,25).  The  relatively 
large  variation  of  conductivity  reported  above  could  be  due 
to  differences  of  water  content. 

Density- -Densities  of  skin,  fat,  and  muscle  were  cal- 
culated using  the  weight  and  volume  measurements  of  Cooper 
et  al.  (4)  for  each  of  three  media.  Each  media  involved 
five  sets  of  measurements  and  yielded  the  mean  densities 
presented  below 

density  of  skin  - 1.03  g/cm*  (6) 

density  of  fat  - 0.98  g/cm  ' (7) 

density  of  muscle  ■ 1.01  g/cm  (8) 

'■v 

Here  one  must  recognize  that  the  density  for  skin  rep- 
resents a mean  value  for  the  entire  skin  which  consists 
predominantly  of  dermal  tissues.  The  density  givenjby 
equation  6 should  not  be  applied  to  the  epidermis  unless 
it  is  saturated  with  moisture. 

The  above  brings  us  to  the  problem  of  computing  densi- 
ties in  terms  of  varying  water  content.  Here  we  shall 
assume  the  volume  remains  invariant  with  changes  in  water 
content.  Proceeding  upon  this  basis  the  density  P of  skin, 
fat,  or  muscle  is  given  by 

p ■ s + w (9) 

where  s represents  the  mass  of  all  nonaqueous  ingredients 
per  cm3. 

In  equation  9,  w represents  the  primary  variable  in 
that  organic  materials  require  temperatures  well  above 
boiling  water  for  distillation  or  decomposition.  The  vari- 
able s may  be  estimated  for  various  tissues  using  the  den- 
sities presented  by  equations  6 through  8 along  with  the 
w values  presented  at  the  beginning  of  this  section. 

Blood  Flow 

Of  all  the  parameters,  blood  flow  is  the  most  difficult 
to  quantify  in  that  it  varies  from  individual  to  individual 
as  well  as  with  skin  location  and  temperature . With  inclined 
resting  human  beings , Cooper  et  al . (4)  found  that  blood 
flow  can  range  from  0 to  0.0118  cm3/cm3  of  muscle/sec  at 
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normal  environmental  temperatures.  At  an  environmental 
temperature  of  35 °C,  the  results  of  Hardy  and  Solders tom 
(9)  and  Behnke  and  Willman  (2)  indicate  blood  flows  in  the 
forearm  skin  of  0.00025  and  0.00020  cnH/cm^  of  skin/sec 
respectively.  In  spite  of  the  elevated  environmental 
temperature,  these  flows  are  well  within  the  range  of  values 
found  by  Cooper  et  al.  (4). 

Senay  et  al.  (19)  report  increases  of  blood  flow  brought 
about  by  temperature  changes.  In  raising  the  forearm  skin 
from  32°C  to  37°C,  blood  flows  were  found  to  increase  by 
0.000027  cm^/cm3  of  forearm  skin/sec,  and  increase  by 
0.000100  cnvfycnr  of  calf  skin/ sec.  They  indicate  that  vaso- 
dilation occurred  at  31.4°C  and  33.7°C  for  skin  at  the  calf 
and  forearm,  respectively.  While  these  blood  flow  changes 
are  significant  with  respect  to  the  flow  rates  determined 
from  the  results  of  Hardy  and  Solderstom  (9)  and  Behnke  and 
Willman  (2) , they  are  very  small  compared  to  the  range  of 
possible  blood  flows  cited  previously  from  Cooper  et  al.  (4). 
In  this  regard  no  data  could  be  found  describing  the  effects 
of  local  heating  upon  increased  blood  flow. 

Until  such  data  are  available,  we  suggest  use  of  the 
highest  values  found  for  skin  and  muscle  by  Cooper  et  al. 

(4).  Such  values  will  not  appreciably  affect  skin  temper- 
atures unless  the  exposures  are  of  the  order  of  1 sec  or 
longer  in  duration. 

Heat-Transfer  Coefficients 

Surface  of  Skin — This  section  is  concerned  with  rates 
of  heat  loss  from  skin  surfaces . Such  fluxes  equal  the 
product  of  a heat- transfer  coefficient  and  the  difference 
between  the  temperatures  of  the  surface  of  the  skin  and  the 
surrounding  air.  It  depends  upon 

• air  motion 

• surface  orientation,  moisture,  and  temperature 

• relative  humidity  of  surrounding  air. 

Here  we  have  experimentally  determined  the  heat-transfer 
coefficient  associated  with  wet  and  dry  vertical  surfaces 
exposed  to  still  air  at  22°C  with  a relative  humidity  of 
50%.  These  conditions  are  considered  typical  of  those 
likely  to  be  encountered.  Dependence  of  the  heat- transfer 
coefficient  on  temperature  is  of  minor  importance  and  hence 
will  be  neglected. 
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In  the  experiments,  an  electrical  heater  was  placed  in 
a 10-cm  diameter,  2-cm-thick  aluminum  disk  whose  sides  and 
back  face  were  insulated  with  2 cm  of  styrofoam.  The  test 
face  was  left  bare  to  simulate  dry  skin  or  covered  with 
wet  tissue  paper  to  simulate  wet  skin.  Temperatures 
within  the  aluminum  disk  and  styrofoam  weie  measured  by 
means  of  thermocouples. 


The  rate  of  heating  was  adjusted  until  the  aluminum 
disk  reached  70°C.  Heat  fluxes  leaving  the  test  face  were 
determined  by  first  calculating  the  relatively  small  heat 
losses  through  the  styrofoam.  These  losses  were  then  sub- 
tracted from  the  measured  rate  of  heating,  and  divided  by 
the  product  of  face  area  and  the  temperature  difference 
between  the  disk  and  surrounding  air.  Resultant  heat-transfer 

coefficients  h for  dry  and  wet  surfaces  are  as  follows: 
e 


/ o 

’2'10~  cal/ctn  -sec-°C , dry  surfaces 
_7 - 10  ^ cal/cm^-sec-°C,  wet  surfaces 


(10) 


i 
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The  above  value  for  dry  surfaces  contrasts  well  with  the 
value  1.5*10“^  cal/cm  -sec-°C  found  in  ref.  26. 

Because  the  epidermis  is  usually  quite  dry,  we  recom- 
mend use  of  the  coefficient  for  dry  surfaces  unless  sweat 
is  present. 

If  water  commences  to  boil,  tissues  will  rapidly  lose 
their  water.  Rates  at  which  heat  is  expended  in  transform- 
ing water  into  steam  were  roughly  100  times  larger  than  heat 
fluxes  due  to  natural  convection/ reradiation . Thus  very 
little  is  gained  by  altering  the  coefficient  as  the  skin 
surface  dries . - 

Steam  Blisters — Heat  is  transferred  across  steam  blis- 
ters by  all  modes  of  heat  transfer,  namely  conduction, 
radiation,  and  convection.  Rates  of  heat  transfer  will  be 
described  by  the  product  of  a heat-transfer  coefficient  and 
the  temperature  difference  across  blisters . Of  all  the 
parameters , the  coefficient  is  the  most  difficult  to  quan- 
tify in  view  of  variations  in  blisters.  I 

The  section  "criterion  for  Fifth-degree-Burns"  esti-  ! 

mates  the  heat- transfer  coefficient  as  6*10”  cal/cm^-sec-°C. 

This  coefficient  will  be  considered  constant  independent  of  I 

temperature,  and  it  is  the  factor  by  which  temperature 
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differences  across  the  blisters  are  multiplied  to  determine 
heat  fluxes  crossing  the  water  vapor  within  the  blister. 
Much  of  this  heat  transfer  is  by  thermal  conduction  and  to 
a lesser  extent  by  thermal  radiation. 

Damage/Bum  Predictions 


Extent  of  Tfaermal  Damage — Extent  of  irreversible  damage 
is  predicted  using  the  same  expression  used  by  the  eye 
models  (23) . In  this  regard  thermal  damage  ft  is  computed 
as  follows : 


where 


ft  - 


oo 

J A1exp-A2/va(t)  dt 


~ step  function  of  va,  1/sec 


(11) 


A2  * step  function  of  va,  K 


va  = temperature  in  °K 


t = time  in  sec. 


This  expression  was  originally  proposed  by  Henriques  (11) 
and  subsequently  used  by  a number  of  other  investigators 
such  as  Stoll  and  Greene  (21) . Values  for  A,  and  A~  are 
presented  below  (22) : 1 z 


4.322-1064/ 

50,000°K 

9.389-10104 

80,000°K 


317  < v < 
— a — 


323  < v < 
— a — 


323°K 


333°K 


(12) 

(13) 


Below  317°K  A,  is  zero.  In  this  regard  we  were  not  able 
to  evaluate  Ai  and1A2  values  beyond  333 °K  due  to  the  absence 
of  high  temperatures  at  bum  thresholds.  Higher  temperatures 
will  be_achieved  only  with  very  short  pulses — of  the  order 
of  1.1C”5  sec  or  less. 


Degree  of  Bum- -Bums  range  from  first  degree  to  fifth 
degree.  Visually  these  bums  are  characterized  as  follows : 

first- degree  bum red 

second- degree  bum  red  with  white  spots 

third- degree  bum  entirely  white 

fourth-degree  bum  steam  blister 

f if tli- degree  bum char. 


26 


i 


i 


I 


2 


Characterizing  burns  in  the  above  manner  provides  a rough 
estimate  of  the  damage.  However,  it  is  not  indicative  of 
the  depths  to  which  tissues  are  irreversibly  damaged.  For 
example,  very  intense  short -duration  heating  can  char  the 
surface  with  only  shallow  dermal  damage.  On  the  other 
hand,  low  intensity  long-duration  heating  can  entirely 
destroy  the  dermis  with  no  charring. 

Criteria  for  each  of  the  five  degrees  of  burn  were  ob- 
tained by  examining  computed  peak  temperatures  and  0 values 
at  particular  burn  radii.  These  criteria  are  presented 
below: 

first-degree  bums ^ = 0 . 1 (assumed) 

second- degree  bums Q = 1.0 

third- degree  bums 0 = 10,000 

fourth-degree  bums 131°C  at  base  of  epidermis 

fifth- degree  bums 400  °C  at  exterior  surface 

of  epidermis 


SKIN  MODEL 

As  noted  earlier,  the  skin  model  utilizes  an  implicit- 
explicit  finite- difference  method  (14,23)  to  predict  transient 
temperatures  produced  in  skin  by  lasers.  Thermal  conduction 
is  treated  using  polar  coordinates. 

In  this  program  the  method  cited  above  was  upgraded  to 
account  for: 

• coded  pulses  (variable  pulse  durations  and  power) 

• temporal  property  changes  (thermal  and  optical) 

• steam  blisters 

• heat  losses  due  to  the  generation  of  steam 

• interception  of  radiation  by  hair  follicles 

• variable  blood  flow  rates  with  respect  to  depth. 

In  addition,  criteria  were  introduced  for  predicting  the 
degree  of  bum.  Means  for  predicting  the  extent  of  irrever- 
sible thermal  damage  remain  the  same  as  that  developed  for 
skin  (22)  and  used  for  the  eye  (23) . 
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This  section  is  concerned  with  describing  essential 
features  of  the  model.  Details  are  presented  in  Appendixes 
A,  B,  and  C.  Appendix  A presents  the  finite- difference 
representation  of  the  heat  conduction  problem  along  with 
its  solution;  Appendix  B describes  means  by  which  long 
pulse  trains  are  treated  to  conserve  computational  time; 
and  Appendix  C discusses  functional  details  of  the  code. 

Laser  Exposures 

The  model  is  capable  of  handling  any  Teaser  exposure 
involving  radially  symmetric  beams  that  are  perpendicular 
to  the  surface  of  the  skin.  Beam  profiles  may  have  any 
symmetric  shape  while  the  laser  may  have  any  wavelength 
and  be  continuous  or  pulsed.  Laser  powers  are  considered 
constant  during  each  pulse. 

Two  types  of  pulse  trains  may  be  treated  by  the  code. 
The  first  is  noncoded  pulses  in  which  all  the  pulses  are 
identical.  The  second  is  coded  pulses  in  which  the  pulses 
vary  in  power  and  duration.  Times  between  successive 
coded  pulses  may  vary  from  0 to  any  value  desired.  Using 
this  provision  one  can  consider  laser  exposures  with  time- 
dependent  power  of  any  description. 

Grid 

A nonuniform  grid  is  used  to  conserve  computation  time 
Within  regions  of  pronounced  heat  deposition,  grid  points 
are  spaced  at  regular  small  Intervals  as  shown  in  Figure  8. 
Beyond  this  region,  the  grid  spaces  are  progressively 
increased  as  follows : 


Azi  * ^1  zi-l 

(14) 

Arj  " C2  rj-l 

(15) 

The  constants  and  C2  are  chosen  large  enough  so  that  re- 
mote grid  points,  suctvas  rM , 1 , zM, , . do  not  sense  any  heat- 
ing whatsoever. 

The  only  exception  to  the  grid  shown  in  Figure  8 is 
when  a hair  follicle  is  to  be  included.  The  follicle  is 
located  on  the  axis  and  occupies  the  first  radial  increment 
Ar^.  Subsequent  radial  increments  are  uniform  and  then 
expanded  as  per  Figure  8.  Axial  increments  are  selected  so 
that  the  follicle  occupies  one  of  the  Az  increments.  To 
achieve  this  end  the  axial  grid  is  expanded  for  several 


increments  as  shown  in  Figure  8 and  then  contracted  to  the 
diameter  of  the  follicle.  Beyond  the  follicle  the  expan- 
sion is  resumed.  Further  details  are  presented 
in  Appendix  C. 
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Assignment  of  Properties  and  Energy  Deposition  Rates 

Thermal  properties,  absorption  coefficients,  densities, 
water  content,  and  blood  flow  rates  are  varied  with  depth 
in  a stepwise  fasnion  according  to  the  thicknesses  of  the 
epidermis,  dermis,  and  any  sweat  layer.  The  steps  may  be 
made  as  small  as  the  data  allow. 


Energy  deposition  rates  are  calculated  by  first  assess- 
ing the  beam  intensities  at  each  of  the  grid  points  illus- 
trated in  Figure  8.  These  intensities  are  computed  using 
Beer's  Law  at  depths  z^  beneath  as  follows: 


q(TyZ±)  - (1-H)  (l-Oq0(rj)exp-(aoZo+a1(Z1-Z0) 


+ . . •«L(zi-zL.1)> 


(16) 


where  q(r, ,z.)  * intensity  at  grid  point  r . , z., 

cal/cm^-sec  ^ 

H = fraction  of  radiant  energy  inter- 
cepted by  hairs , dimensionless 

£ = reflectance,  dimensionless 

q (r.)  =*  incident  beam  intensity  at  radius 
° ^ r j , cal/ cm^- sec 

a ,a1...aT  ■ absorption  coefficients  of  tissues 
° 1 11  between  depths  0 to  Zo,  Z0  to  Z\, 

. . . , ZL_!  to  ZL,  respectively,  1/cm 


Rates  of  energy 


deposition  qCr^.z^ 


are  computed  as  follows 


q(rrZi-i)  - q(rrz1+1) 

zi+l”zi-l 


(17) 


When  a hair  follicle  is  present  at  rj,z^  then 
q(rj,zi)  “ q(rj ,zi)/(zi-zi+1) 


(18) 


Heat  Transfer 

Heat  transfer  within  the  skin  and  subcutaneous  tissues 
is  computed  using  finite-difference  approximations  of  the 
heat  conduction  equation  (modified)  for  heat  deposition  and 
blood  flow.  This  equation  is  presented  below: 
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(19) 


nr3v  « 
QCJt 

where  p “ 
C = 
v - 
t - 

q - 
k - 

r * 

z * 
B - 

°b  * 
q - 
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tissue  density,  g/cm 
specific  heat  of  tissues,  cal/g-°C 
temperature,  °C 
time,  sec 

rate  of  heat  deposition,  cal/cm  -sec 
thermal  conductivity,  cal/cm-sec°C 
radius , cm 
depth , cm 

rate  of  blood  flow,  g/cm  -sec 

specific  heat  of  blood,  cal/g-°C 

rate  of  heat  loss  in  transforming  water  into 
steam,  cal/cm^-sec 


Initially,  the  thermal  properties  and  blood  flow  rates  vary 
only  with  depth.  Thereafter,  the  densities  p,  specific 
h*ats  C and  thermal  conductivities  K are  altered  with  re- 
spect to  radius  and  depth  as  water  is  transformed  into  steam. 
Expressions  are  presented  in  the  section  "Thermal  Properties 
of  skin"  for  the  thermal  conductivity  and  specific  heats 
as  a function  of  water  content  w divided  by  density  p . 


In  equation  19,  the  blood  flow  B is  considered  to 
enter  capillaries  through  large  blood  vessels  at  the  initial 
skin  temperature.  Thereafter  the  blood  assumes  the  temper- 
ature of  the  tissues  before  leaving  through  other  major 
blood  vessels.  In  this  respect  the  blood  acts  solely  as  a 
heat  sink.  Heat  transport  from  one  location  to  another  is 
neglected  in  that  it  is  of  minor  importance,  compared  to 
other  heat  losses,  namely  by  thermal  conduction  and  by 
blood  acting  as  a heat  sink. 


Initially  the  skin  and  subcutaneous  tissues  are  assumed 
to  be  at  a uniform  temperature.  Biological  heating  is 
neglected.  To  simplify  the  temperature  calculations,  all 
tissue  temperatures  are  given  as  temperature  differences 
with  respect  to  the  temperature  v-  of  the  surrounding  air. 
Ambient  air  temperatures  may  be  higher  or  lower  than  the 
initial  temperature  of  the  skin. 

Rates  of  heat  loss  from  the  surface  of  the  skin  are 
described  by 

"Klr  “ hev’  z“0’  t >0  (20) 
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Due  to  radial  symmetry  heat  does  not  flow  across  the  axis . 
Thus 


0 , r-0 , t > 0 


(21) 


At  distances  far  away  from  the  regions  of  energy  deposition, 
temperatures  must  approach  their  initial  value  v -v . This 
is  expressed  by  0 

v -*  v - v as  r and/or  z -*■  » (22) 
o e 


Once  a steam  blister  forms,  heat  fluxes  to  the  under- 
lying tissues  are  reduced  by  the  film  of  water  vapor  gener- 
ated within  the  blister.  Neglecting  the  heat  capacity  of 
the  water  vapor  within  the  blister,  the  heat  fluxes  leaving 
the  blister  are  identical  to  those  entering  the  underlying 
tissue.  Mathematically  this  is  described  as  follows: 


-KHi 


Z -6 
w 


_k3V| 

K3z> 


= h (v|  - v|  ; 

V6  V6  zw+6 


(23) 


where  Z - depth  at  which  blister  forms  (namely  that 
A of  the  epidermal-dermal  interface) , cm 


6 * an  incrementally  small  displacement  from 
Zw,  cm 

» heat- transfer  coefficient  across  blister, 
cal/cm^-sec-°C 


Water  within  tissues  beneath  the  blister  is  assumed  to 
be  contained  following  blister  formation.  This,  of  course, 
raised  the  possibility  of  superheated  water  along  with 
elevated  pressures  within  tissues  beneath  the  blister. 

No  provisions  have  been  made  for  blister  rupture. 

Heat  losses  due  to  the  generation  of  steam  are  accounted 
for  by  introducing  positive  values  for  q in  equation  19. 

Such  values  are  introduced  for  grid  points  within  the  epi- 
dermis wherein  temperatures  reach  that  of  boiling  water 
during  periods  while  water  is  present.  Other  grid  points 
have  $ values  of  zero. 

Values  for  if  are  adjusted  by  trial  and  error  until  the 
temperatures  at  the  appropriate  grid  points  approximate  that 
of  boiling  water.  Usually  four  trials  are  required.  Fol- 
lowing each  trial,  the  ^ values  are  revised  based  upon 
calculated  temperatures  using  the  previous  If  values.  After 


the  last  trial,  the  water  content  within  the  tissues  is 
adjusted  according  to  the  loss  of  water.  Once  tissues  lose 
all  their  water,  temperatures  are  allowed  to  increase 
without  bounds. 


Thermal  Damage  Predictions 

Tissues  are  considered  irreversibly  damaged  when  the 
value  ft  of  equation  11  equals  or  exceeds  1.  In  this  equa- 
tion rates  of  damage  increase  exponentially  with  respect 
to  temperature.  In  the  model  rates  of  damage  are  computed 
during  selected  time  steps.  Cumulative  damage  is  predicted 
by  multiplying  these  rates  by  the  associated  time  steps  and 
summing  the  damage  over  time. 

Degrees  of  bum  are  predicted  as  described  in  the  sec- 
tion "Damage  /Burn  Predictions.”  Here  peak  ft  values  are 
used  to  describe  the  occurrence  of  first- , second- , and 
third- degree  bums.  Fourth- degree  bums  are  predicted 
when  a steam  blister  forms  and  fifth-degree  bums  when  the 
peak  temperature  is  adequate  to  char  tissues. 


PIG  EXPERIMENTS 

This  section  describes  exposure  of  20  pigs  (30  bum 
sites  per  pig)  to  a CCU  and  ruby  laser.  Included  are  dis- 
cussions of: 

• optical  and  animal-handling  procedures 

• histological  procedures  and  results 

• criteria  describing  the 

- formation  of  steam  blisters.,  and 

- degree  of  bums . 

• comparison  of  radial  and  axial  extent  of 
irreversible  damage  with  model  predictions. 

The  CO^  laser  was  continuous  with  a nominal  power  of  5 watts. 
The  ruby  laser  provided  single  pulses  of  50-  or  500-usec 
duration  with  a maximum  nominal  energy  of  25  joules.  Both 
lasers  functioned  somewhat  below  their  nominal  power/energy 
levels.  Beam  powers  were  measured  by  means  of  a power  meter 
at  various  times  during  the  experiments.  In  each  set  of 
experiments,  the  power  remained  reasonably  stable  as  will 
be  shown  later  in  this  section. 
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Immediately  before  each  exposure , skin  temperatures 
were  stabilized  at  37°C.  This  was  achieved  by  contacting 
the  skin  with  a warm  aluminum  disk  held  at  37*0  for  one- 
half  minute. 

Various  aspects  of  the  CO2  experiments  are  shown  in 
Figure  9.  Included  are  the  test  setup  as  well  as  pic- 
tures of  the  resultant  bums . The  scale  in  the  photograph 
at  the  lower  left  is  in  mm;  it  shows  a typical  fifth-degree 
bum  as  evidenced  by  black  char  at  the  center  of  the  bum 
site.  A third-degree  bum  is  shown  at  the  lower  right  as 
evidenced  by  the  relatively  large  white  circular  area. 
Around  this  and  all  other  white  areas  is  a red  ring. 

The  photograph  at  the  upper  right  shows  bums  created 
by  exposures  to  the  COo  laser  with  a power  of  1.55  watts 
and  a beam  radius  at  the  1/e2 points  of  0.710  cm.  Each 
column  represents  a different  exposure  time.  Bums  in 
columns  A,  B,  C,  D,  and  E were  produced  by  10- , 15- , 20- , 
7.5-  and  5-sec  duration  exposures  to  the  COo  laser.  Bums 
in  columns  A,  B,  and  C were  white  surrounded  by  a red  ring 
while  those  in  column  E were  entirely  red.  Bums  in  column 
D were  predominantly  red  with  a barely  perceptible  white 
spot  at  the  center. 

In  the  remainder  of  this  section  we  shall  discuss  the 
experimental  procedures , compare  model  predictions  with 
those  found  experimentally,  and  interpret  the  data  in  re- 
gard to  heat- transfer  coefficients  and  bum  criteria. 

Optical  Setups  and  Measurements 

CW  CO?  Laser- -To  provide  reproducible  exposures  care 
was  taken  so  that  all  bum  sites  were  located  at  a fixed 
distance  of  150  cm  from  the  laser.  The  normal  beam 
divergence  produced  a spot  size  of  approximately  0.73  cm 
measured  at  the  l/e2  points.  The  optical  arrangement  is 
shown  in  Figure  10.  Two  folding  mirrors  are  used.  The 
first  mirror  is  used  to  change  the  beam  direction  in  the 
horizontal  plane,  and  the  second  mirror  is  used  to  direct 
the  beam  downward  through  an  aperture  onto  the  animal. 

The  aperture  is  an  adjustable  iris  so  that  all  or  any  por- 
tion of  the  beam  may  be  used.  Further  increases  in  beam 
diameter  may  be  made  by  replacing  the  first  mirror  with  a 
convex  mirror  of  long  focal  length.  Exposure  times  are 
controlled  by  an  electromechanical  shutter  driven  by  an 
electronic  interval  timer. 
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The  entire  optical  system  described  above,  along  with 
laser  power  supply,  is  mounted  on  a portable  cart  to  enable 
the  system  to  be  moved  to  the  animal  facility. 

Beam  profiles  for  our  CW  CO2  laser  are  presented  in 
Figures  11  and  12.  Figure  11  presents  the  profiles  of  the 
beam  as  it  leaves  the  laser,  while  Figure  12  presents  the 
profiles  after  the  beam  is  expanded  by  a convex  mirror. 

The  two  profiles  represent  the  profiles  in  two  perpendicu- 
lar directions.  These  profiles  were  obtained  by  traversing 
a 0.030-cm  pinhole  across  the  beam  in  steps  of  0.064-cm, 
and  measuring  the  power  passing  through  the  pinhole.  The 
mean  deviation  of  the  power  measurements  from  the  curves 
of  Figures  11  and  12  was  0.05  milliwatts. 

All  profiles  shown  in  Figures  11  and  12  are  essentially 
gaussian  in  shape.  Notice,  however,  that  the  beams  are  not 
quite  circular- -deviating  in  radius  by  about  5X  in  the  two 
directions.  In  this  regard  we  shall  use  the  mean  value  of 
the  two  radii  cited  in  each  of  the  figures. 

Ruby  Laser — The  ruby  laser  operates  in  two  modes  at  a 
wavelength  of  0.6943  ym.  The  first  mode  provides  25  joules 
of  energy  over  a pulse  duration  of  500  usee.  The  second 
mode  provides  a variable  output  of  0 to  10  joules  with  a 
pulse  duration  of  50  ysec.  Repetition  rates  may  be  varied 
provided  there  is  a minimum  of  60  sec  between  pulses. 

The  setup  used  to  expose  pigs  to  the  ruby  laser  is 
shown  in  Figure  13.  In  essence  the  beam  passed  through  a 
prism  and  a Galilean  telescope  before  being  diverted  down- 
ward through  a second  prism.  Measurements  of  the  beam 
profile  were  made  using  the  same  procedure  as  that  described 
for  the  CO2  laser  beam.  Results  are  shown  in  Figure  14. 

Animal  Procedure,  Autopsy,  Histological  Procedure,  and  Results 

Twenty  pigs,  each  weighing  approximately  27  kg  were  used 
in  the  experiments.  They  arrived  at  the  animal  facility  at 
least  1 to  2 days  before  being  used  in  the  experiments. 

Food  and  water  were  withheld  from  the  animals  the  night 
before  exposing  them  to  the  lasers. 

Three  to  four  pigs  were  exposed  each  day.  The  pigs  were 
first  tranquilized  with  Sernylan  (0.5  - 1.0  mg/kg),  making 
them  groggy  and  allowing  administration  of  pentobarbital 
through  a catheter  placed  in  their  ear  vein.  Pentobarbital 
was  infused  as  needed--based  on  the  response  of  the  animal 
to  external  stimuli.  Although  it  was  originally  planned  to 
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End  view 


Figure  13.  Optical  system  for  ruby  laser. 


LASER  ENERGY  PASSING  THROUGH  0.030-cm  PINHOLt,  JOULES 


Figure  14,  Profile  of  normal  ruby  laser  beam. 

Curve  is  "eyeball"  fit  to  the  data. 

use  Semylan  for  the  entire  procedure,  it  was  difficult  to 
keep  the  animals  quiet  with  only  this  agent.  I vintobarbital 
proved  to  be  an  excellent  anesthetic  and  none  of  the  ani- 
mals died  during  its  use.  Care  had  to  be  taken,  however, 
since  it  is  easy  to  overdose  the  animals  with  pentobarbital. 
One  animal  showed  respiratory  arrest,  but  imm  Uate  adminis- 
tration of  artificial  respiration  as  well  as  the  respira- 
tory stimulant  Dopram  revived  the  animal. 

Once  the  pig  was  sufficiently  anesthetized,  the  animal's 
flank  was  shaved  with  an  electric  razor.  Extreme  care  was 
taken  since  this  can  produce  some  erythema  or  even  abrasions. 
The  hair  remover  (Nair)  was  subsequently  applied  for  approxi- 
mately 10-15  minutes  after  which  it  was  rinsed  off  with  warm 
water.  Two  applications  of  Nair  were  usually  necessary  to 
remove  all  the  hair  and  to  produce  a smooth,  abrasion- free 
skin. 
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Fifteen  areas  were  marked  and  numbered  for  reference 
purposes  with  indelible  ink  on  each  side  of  the  animal. 

All  bum  sites  were  completely  white.  These  areas  were 
varied  in  size,  depending  on  the  laser  exposure,  to  assist 
in  detecting  barely  visible  bums  at  autopsy. 

Deep  anesthesia  was  required  when  the  animals  were 
actually  exposed  to  the  lasers  since  they  have  a tendency 
to  flinch  their  skin.  Just  before  exposure,  pentobarbital 
was  administered  until  the  second  or  third  (surgical)  stage 
of  anesthesia  was  obtained.  After  exposure  to  the  laser 
beams,  the  pigs  were  kept  overnight  in  individual  cages  to 
prevent  the  exposure  sites  from  getting  dirty  and  other 
pigs  from  biting  and  licking  at  the  bum  sites. 

Twenty-four  hours  after  the  laser  treatment,  the  pigs 
were  euthanized.  First  they  were  tranquilized  with  Semylan 
and  then  received  an  intravenous  administration  of  Euthobarb. 
The  pigs  were  immediately  autopsied.  Deep  cuts  were  made 
some  distance  from  the  edges  of  the  bum  sites  and  went  all 
the  way  through  the  fat  to  the  abdominal  muscle  layers. 

The  tissues  were  placed  in  plastic  bags  containing  Bouin's 
fixative  and  delivered  to  the  pathologist  for  sectioning  and 
observation . 

Once  these  techniques  were  developed,  the  entire  pro- 
cedure became  very  routine  and  no  difficulties  were  encoiin- 
tered. 

Histology  Thicknesses/Depths  of  Skin  and  Other  Media — 
From  the  but side  inwards , the  skin  consists  of  a thin  epi 
dermis  that  is  composed  of  several  layers  of  cells  and  a 
thicker  dermis  that  is  composed  of  connective  tissue.  Under- 
neath the  dermis  lies  a layer  of  fat.  Glands,  hair  follicles, 
and  small  blood  vessels  are  also  present  in  the  skin. 

Thicknesses  of  significant  normal  structures  of  pig 
skin  are  listed  below: 

Epithelium  or  epidermis:  0.0081  - 0.0161  cm 

(mean  - 0.0121  cm) 

Dermis:  0.1078  - 0.2479  cm 
(mean  * 0.1779  cm) 

Capillaries  were  located  at  depths  ranging  from  0.0135  to 
0.0216  cm  while  glands  or  hair  follicles  ranged  in  depths 
from  0.1617  to  0.2695  cm  (mean  - 0.2156  cm).  All  of  the 
above  measurements  were  corrected  for  tissue  shrinkage. 
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Qualitative  Effects  of  Excessive  Heat--When  the  skin  is 
damaged  hy  lasers,  cells  will  die.  Cell  death  or  damage  may 
be  indicated  by  a complete  absence  of  the  cell  or  more  subtle 
changes  in  the  appearance  or  staining  reaction  of  the  cell 
nucleus  or  cytoplasm.  Concomitant  with  cell  death  is  normally 
an  influx  of  white  blood  cells  attempting  to  remove  the  dead 
and  damaged  cells . The  extent  of  damage  caused  by  the  laser 
beam  is  therefore  indicated  by  the  depth  and  radius  in  the 
skin  that  dead  cells  can  be  found  as  well  as  the  presence  of 
white  blood  cells. 

Depending  on  the  characteristics  of  the  laser  beam,  the 
damage  varies  in  depth  but  occasionally  goes  all  the  way 
into  the  fat  layer.  Some  cells  are  more  sensitive  to  laser 
damage  than  others.  For  instance,  cells  lining  blood  vessels 
and  glands  are  particularly  susceptible,  whereas  fat  cells 
are  less  susceptible  than  other  cells  of  the  dermis.  Thus, 
it  is  possible  to  find  ateas,  particularly  in  the  fat  and 
also  in  the  dermis,  where  the  blood  vessels  and  glandular 
cells  show  damage  but  the  surrounding  tissue  cells  do  not. 

A sharp  line  of  demarcation  between  damaged  and  undamaged 
tissue  is  therefore  not  present.  In  the  measurements,  the 
furthest  point  was  taken  at  which  any  cell  damage  could  be 
observed.  ^ 

Histology  Procedures  and  Observations- -A  total  of  582 
of  the  60Q  burn  sites  were  submitted  for  histological  examin- 
ation. The  skin  samples  were  received  fixed  in  Bouin's 
fixative.  They  remained  in  fixative  1-3  days  and  were  then 
washed  in  three  changes  of  507.  alcohol  to  remove  the  fixa- 
tive. The  tissue  was  trimmed  for  processing  by  cutting 
through  the  center  of  the  bum  site,  embedding  one  half 
with  the  lesion  down  to  insure  sectioning  through  the  cen- 
ter of  the  lesions  for  accurate  measurement.  The  other 
half  was  stored  for  future  reference.  The  tissue  was  then 
dehydrated  in  alcohol,  embedded  in  paraffin,  sectioned  at  6 
microns  and  stained  with  hematoxylin  and  eosin.  Four  to  six 
sections  were  cut  from  the  face  of  the  paraffin  block  to 
obtain  a section  through  the  lesion  center. 

The  tissues  were  then  evaluated  by  histologic  examina- 
tion and  the  radius  and  depth  of  the  tnermal  damage  were 
determined.  The  injured  tissue  is  described  as  follows. 

There  was  coagulative  necrosis  of  varying  depth  at  the  bum 
site  with  loss  of  epithelium  covering  some  of  the  more 
severe  bums.  The  pattern  of  necrosis  was  roughly  the 
shape  of  a flattened  cone.  Epithelial  cells  had  pyknotic 
or  shrunken  dense  nuclei  or  occasionally  fragmented  nuclei. 

The  cytoplasm  lost  its  basophilia  and  was  more  eosinophilic 
than  adjacent  normal  epithelium.  Similar  changes  were  seen 
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in  cells  lining  the  hair  shafts.  Necrotic  fibroblasts  were 
detected  by  the  presence  of  pyknotic  nuclei;  cytoplasm  was 
too  sparse  to  be  visible.  The  upper  layers  of  collagen  were 
blue  in  color  and  the  filamentous  structure  was  obscured. 
Deeper  in  the  lesion,  the  collagen  retained  its  structure 
but  was  altered  in  color.  Deeper  there  was  an  indistinct 
region  of  questionable  change  although  cellular  elements 
at  this  level  were  necrotic.  There  was  mild  and  variable 
polymorphonuclear  infiltration  at  the  deep  edge  of  the  lesion. 

Some  cellular  elements  were  more  sensitive  to  injury  than 
others.  They  were  necrotic  at  a greater  depth  than  resistant 
tissues.  Thus  there  was  no  sharp  edge  to  the  bum  lesion. 

The  blood  vessel  endothelium  and  supporting  tissue  are  most 
sensitive  as  well  as  the  glandular  epithelium.  Fat  tissue 
and  fibroblasts  are  less  sensitive  than  the  above  elements. 
Glands  and  blood  vessels  well  within  the  panniculus  adiposus 
were  necrotic  in  some  animals  but  the  surrounding  fat  was 
normal. 

The  depth  of  the  lesion  was  measured  to  the  deepest 
point  of  observed  damage.  The  radius  was  very  precise  in 
its  outline  as  the  surface  epithelium  presented  a sharp 
junction  of  normal  and  injured  cells.  When  the  epithelium 
was  lost  from  the  surface,  the  depth  measurement  included 
an  estimate  of  its  thickness. 

Dimensional  Changes  of  Skin  Specimens — Skin  specimens 
contract  upon  being  excised  from  tne  animals.  Further  con- 
traction was  observed  in  preparing  the  specimens  for  histo- 
logic measurements.  No  dimensional  changes  occurred  between 
exposing  and  sacrificing  the  animals. 

Skin  contraction  caused  by  excising  was  quantified  by 
comparing  photographs  of  the  bum  sites  before  and  imme- 
diately after  excising.  From  these  photographs  the  follow- 
ing results  were  obtained: 

• Normal  undamaged  skin  contracts  linearly  along 
the  surface  by  12.0+3.2%.  This  figure  applies 
to  each  of  two  directions  along  the  surface  of 
che  skin . 

• Bum  sites  contract  much  less  than  undamaged 
skin,  i.e.,  only  by  2. 2+4. 2%. 

Based  upon  the  above  results,  bum  radii  measured  using 
excised  skin  should  be  multiplied  by  1/0.978.  To  arrive  at 
the  correction  factor  for  burn  depth,  we  shall  assume  that 
skin  volume  remains  constant.  This  means  that  bum  depths 
rhould  be  multiplied  by  (0.978)2. 
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To  correct  for  shrinkage  caused  by  subsequent  treatment 
of  the  specimens,  scaled  photographs  of  cross  sections  of 
excised  skin  were  compared  with  photographs  of  the  same 
cross  sections  after  completion  of  all  histologic  prepara- 
tions. These  photographs  showed  that  the  radii  were  reduced 
by  10.3+4.2%  while  depths  were  reduced  by  11.3+5.5%. 

The  above  results  indicate  the  following  factors  for 
correcting  histologic  measurements 

(l/0.978)(l/0.897)  - 1.140  for  bum  radii 

(0. 978)2(l/0. 887)  - 1.078  for  bum  depths. 

Bum  Results 

A total  of  19  pigs  were  exposed  to  the  CW  CO2  laser  and 
1 pig  to  the  ruby  laser.  Only  one  pig  was  used  for  the  ruby 
laser  in  that  it  was  not  sufficiently  powerful  to  cause  any 
bum  damage. 

Tables  5,  6,  and  7 present  the  histologic  determinations 
of  the  depths  and  radii  of  damage  for  three  different  CO2 
beams,  namely 

2 

Power  CO?  Beam  Radius  at  1/e  Point 

1.53  + 0.04  watts  0.710  cm 

1.97  + 0.07  " 0.383  " 

1.55+0.07  " 0.383  " ‘ 

The  difference  in  power  of  the  smaller  beam  (0.383  cm)  was 
caused  by  a drift  in  power  during  the  period  between  the  two 
set3  of  experiments. 

These  tables  include  approximately  757o  of  the  bum  sites. 
Remaining  bum  sites  were  omitted  because  of  one  or  more  of 
the  following  reasons 

• sites  were  too  small  to  be  evident 

• sites  were  elliptical  in  shape 

• specimens  curled  or  were  lost  in  transit. 

Exposure  times  were  controlled  electronically  via  a shutter 
system  with  an  estimated  accuracy  of  a few  hundredths  of  a 
second. 
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TABLE  5.  HISTOLOGY  RESULTS  FROM, CO 2 EXPOSURES 
.53  + 0.04  watts,  beam  radius  at  1/e^  points  ■ 0.710  cm) 

Damage  Depths  of  damage*5 
radii'5  (cm) 

(cm) 


(1 

Pulse  duration 
(aec  ) 


03.0 

04.0 

05.0 

06.0 

10.0 

15.0 

20.0 

30.0 

40.0 


Number  of 
measurement sa 


23(24) 
22(26) 
52(52) 
10(10) 
22(22) 
21(19) 
22(20) 
17(12) 
19  (4) 


0.0997  + 0.0432 
0.1747  + 0.0603 
0.2237  + 0.0570 
0.2835  + 0.0537 
0.3708  + 0.0582 
0.4326  + 0.0670 
0.5100  + 0.0956 
0.5632  + 0.0531 
0.6344  + 0.0667 


0.0211  + 0.0101 
0.0357  + 0.0170 
0.0567  + 0.0423 
0.0438  + 0.0345 
0.1294  + 0.0483 
0.1419  + 0.0410 
0.2594  + 0.0957 
0.2430  + 0.0396 
0.3799  + 0.2095 


a Radial  measurements  plus  depth  measurements  given  in  parentheses 
^Dimensions  corrected  for  tissue  shrinkage. 


TABLE  6.  HISTOLOGY  RESULTS  FROM  C02  EXPOSURES 
(1.97  + 0.07  watts,  beam  radius  at  l/e2  points  - 0.383  cm) 


'ulse  duration 
(sec) 

Number  of 
measurements® 

Damage 

radii*5 

(cm) 

Depths  of  damagab 
(cm) 

0.3 

4 (4) 

0.0800  + 0.0330 

0.0167  + 

0.0063 

0.4 

19(19) 

0.1282  + 0.0316 

0.0160  + 

0.0055 

0.6 

28(28) 

.0.1940  + 0.0333 

0.0351  + 

0.0145 

1.0 

25(25) 

0.2531  ± 0.0418 

0.0290  + 

0.0127 

2.0 

6 (6) 

0.2655  + 0.0405 

0.1004  + 

0.0246 

3.0 

0 (5) 

- 

0.1177  + 

0 . 0140 

5 . 0 

11(14) 

0.3627  ± 0.0605 

0.1878  + 

0.0446 

7.5 

10  (9) 

0.3910  + 0.0712 

0.1476  + 

0.0527 

10.0 

14  (9) 

0.4328  ± 0.0616 

0.1749  + 

0.0566 

15.0 

13(11) 

0.4806  ± 0.0631 

0.1979  ± 

0.0619 

aRadial  me* 

-tnent  plus  depth 

measurements  in  parentheses. 

^Dimensions  corrected  for  tissue  shrinkage. 
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TABLE  7.  HISTOLOGY  RESULTS  FROM  CO 2 EXPOSURES 
<1.55  + 0.07  watts,  beam  radius  at  l/e^  points  “ 0.383  cm) 


Pulse  duration 
(sec) 

Number  of 
measurements8 

Damage 

radiib 

(cm) 

Depths  of  damage^ 
(cm) 

0.3 

10(10) 

0.0326  + 0.0257 

0.0079  + 0.0022 

0.5 

10(10) 

0.1018  + 0.0369 

0.0132  + 0.0060 

2.0 

10  (9) 

0.2246  + 0.0800 

0.0432  + 0.0196 

5.0 

14(14) 

0.3082  + 0.0218 

0.1183  ± 0.0190 

7.5 

11(14) 

0.3652  + 0.0366 

0.1784  + 0.0197 

10.0 

14(14) 

0.4006  + 0.0307 

0.1430  + 0.0502 

20.0 

25(25) 

0.4431  + 0.0575 

0.2738  + 0.0412 

a Radial  measurements  plus  depth  measurements  given  in  parentheses . 
b Dimensions  corrected  for  tissue  shrinkage. 


On  a percentage  basis,  the  mean  standard  deviations 
associated  with  the  damage  radii  of  Tables  5,  6,  and  7 are 
21.3,  19.7,  and  26.9%,  respectively.  Mean  standard  devia- 
tions associated  with  depths  of  damage  are  47.1,  31.6,  and 
28.0%,  respectively.  In  each  case  the  radial  measurements 
are  more  precise  tnan  the  depth  measurements  due  in  large 
part  to  variations  in  skin  composition  and  contours  with 
depth. 

Plots  of  the  tabular  results  are  presented  in  Figures 
15  through  17 . Again  one  can  see  the  greater  variability 
in  the  depth  measurements . 

Skin  bums  are  evident  as  a consequence  of  discolora- 
tion. With  marginal  burns,  the  sites  were  a pinkish  red 
and  remained  so  during  the  24  hours  prior  to  sacrificing 
the  animal.  More  severe  bums  exhibit  a white  area  sur- 
rounded by  a well-defined  red  ring.  Radii  of  these  circu- 
lar areas  were  measured  by  means  of  microcalipers  (finest 
dial  reading  - 0.003  cm).  These  measurements  were  made 
within  1 hour  following  exposure  and  immediately  before 
sacrificing  the  animals.  No  pronounced  differences  were 
noticed  in  the  measurements.  Results  are  presented  in 
Table  8. 

By  comparing  the  radii  given  in  Table  8 with  those 
given  in  Tables  5 and  6,  it  may  be  observed  that  the  radii 
of  the  red  areas  correspond  reasonably  well  with  the  radii 
of  irreversible  damage  for  each  of  the  exposures. 
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5 


PULSE  DURATION,  sec 


Figure  16.  Radii  and  depths  of  damage  produced  by  C(>2 
laser  (1.97  watts,  beam  radius  at  l/ez 
point  - 0.383  cm). 


PULSE  DURATION,  s#c 


Figure  17.  Radii  and  depths  of  damage  produced  by  CO 
laser  (1.55  watts,  beam  radius  at  1/e^ 
point  * 0.383  cm). 


TABLE  8.  RADII  OF  RED,  WHITE  BURN  AREAS  PRIOR 
TO  EXCISING  SPECIMENS  (C02  EXPOSURES) 


Incident 

beam 

power 

(watts) 

Beam  radius 
at  l/e2  points 
(cm) 

Pulse 

duration 

(sec) 

Radii  of 
red  areas 
(cm) 

Radii  of 
white  areas® 
(cm) 

1.53 

0.710 

5.0 

0.287 

+ 

0.011 

0.177  + 

0.014 

tt 

It 

10.0 

0. 402 

+ 

0.029 

0.267  + 

0.023 

H 

II 

15.0 

0.434 

+ 

0.036 

0.316  + 

0.036 

II 

II 

20.0 

0.485 

+ 

0.018 

0.391  + 

0.032 

II 

. II 

30.0 

0.550 

+ 

0.031 

0.444  + 

0.032 

II 

•II 

A0. 0 

0.606 

+ 

0.041 

0.504  + 

0.032 

1.97 

0.383 

7.5 

0.368 

+ 

0.027 

0.342  + 

0.026 

II 

II 

10.0 

0.400 

+ 

0.034 

0.366  + 

0.016 

II 

II 

15.0 

0.426 

+ 

0.024 

0.392  + 

0.020 

■"White"  areas  produced  by  I. 53-watt  exposures  were  less 
distinct  than  those  produced  by  1.97-watt  exposures. 


Three  different  ruby  laser  exposures  were  used,  namely 


Number  of 
exposures 

12 

3 

5 


Pulse  energy,  time 

3.48  joules  (500  ysec) 
11.8  joules  (500  ysec) 
5.9  joules  (50  ysec) 


Ruby  beam  radius 
at  1/e2  point 

0.17  cm 
0.77  cm 
0.77  cm 


Histologic  examinations  of  skin  sites  exposed  to  the  ruby 
laser  revealed  no  damage  whatsoever . 


Criteria  for  First- r Second-,  and  Third-Degree  Burns- 
Third-  degree  bums  are  completely  white  without  blisters  or 
charring.  Radii  of  white  areas  shown  in  Table  8 are  larger 
than  that  of  any  blisters.  The  mean  value  of  the  damage 
integral  at  these  radii  was  (1. 0+1.0)  10^.  The  large  stan-  > 
dard  deviation  is  attributable  to  the  fact  that  small  error 
in  temperature  (or  location)  produce  very  substantial  changes 
in  0. 


Third-degree  burns  may  be  estimated  using  the  above  ft  . 
value.  Second-degree  burns  should  have  a 0 value  of  1 f 
based  upon  the  agreement  between  the  damage  radii  presented 
in  Tables  5 and  6,  and  the  red  bum  radii  of  Table  8.  F .r.' t- 
degree  burns  should  have  a 0 value  of  the  order  of  0.1  or 
less.  More  precise  definition  is  not  possible  in  that  sucn 
bums  were  not  evident  during  the  course  of  the  pig  experiments. 
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Criterion  for  Fourth- Degree  Bums  (Steam  Blisters)  — 
Blisters  form  as  a consequence  of  pressures  developed  inter- 
nally by  trapped  steam.  We  have  found  that  the  skin  sepa- 
rates at  the  epidermal /dermal  interface.  Measurements  of 
the  blister  radius  produced  by  20-sec  CO2  pulses  (power  - 
1.55  watts,  beam  radius  ■ 0.383  at  1/e2  point)  yielded 
values  of  0.220+0.073  cm.  At  this  blister  radius,  the 
model  predicted  a peak  temperature  of  131 °C.  This  temper- 
ature represents  a simple  first-order  criterion  for  pre- 
dicting the  formation  and  growth  of  steam  blisters.  At 
this  temperature , superheated  water  would  develop  pressures 
of  two  atmospheres. 

Criterion  for  Fifth-Degree  Burns- -Fifth- degree  burns 
arise~when  tissues  char.  Char  areas  are  always  surrounded 
by  white  and  red  tings.  Steam  blisters  will  usually  form 
before  the  start  of  charring. 

Charring  represents  a complex  temperature /time  depen- 
dent process  (24) . Tissues  will  char  upon  exposure  to 
temperatures  of  a few  hundred  degrees  centigrade  and  higher, 
depending  upon  the  exposure  times.  Based  upon  our  experi- 
ences with  other  organic  materials  we  have  assumed  a tem- 
perature of  400°C  in  view  of  the  short  exposure  times  to 
such  temperatures. 

With  the  CO2  laser  power  of  1.55  watts  and  the  beam 
radius  of  0.383  cm  (1/e2  points),  black  spots  formed  on 
blisters  in  10  of  25  20-second  exposures.  No  char  was  ob- 
served with  10-second  exposures.  To  achieve  epidermal 
temperatures  of  400 °C,  the  code  indicated  a heat  transfer 
coefficient  (associated  with  heat  transfer  across  the 
vapor  space)  of  approximately  6-10"’  cal/cm2-sec-°C.  Heat 
fluxes  crossing  the  blister  space  are  equal  to  the  product 
of  the  above  value  and  the  temperature  difference  across 
the  blister.  While  these  fluxes  can  be  appreciable,  they 
are  small  by  comparison  to  conductive  fluxes  just  prior  to 
blister  formation. 

Comparison  of  Predicted  and  Experimental 
Radii/Depths  of  Irreversible  Damage 

CO?  Laser  Exposures--Table  9 compares  predicted  radii 
and  depths  of  irreversible  damage  with  their  experimental 
counterparts.  Experimental  data  are  from  Tables  5,  6,  and 
7.  Overall  it  may  be  observed  that  the  agreement  is  good. 
The  one  exception  is  the  depths  of  damage  produced  by  the 
long-duration  exposures  to  1.97  watts.  This  discrepancy 
is  probably  due  to  the  presence  of  fat  beneath  the  skin. 
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TABLE  9.  COMPARISON  OF  PREDICTED  AXL  EXPERIMENTAL  DuVJ'ACE 
RADII  AND  DEPTHS  (CO2  LASER) 


Pnuer. 

(watts) 

Bess  radius 
at  l/e^  point  (cm) 

Pulse  dur- 
ation (sec) 

Radius  of 

Exp 

daa-age  (co) 

Calc 

Depth  of 
Exp 

damage  (eta) 
Calc 

1 .55 

0.383 

0.  3 

0.0326 

0 

0.0079 

0 

1.55 

0.383 

0.5 

0.1018 

0.0607 

0.0132 

0.0147 

1 55 

0.383 

2.0 

0.2246 

0.2766 

0.0432 

0.0654 

i .55 

0.383 

5.0 

0 . 30C2 

0.3510 

0.1183 

0 1385 

1.55 

0.383 

7.5 

0.3652 

0.3770 

0.1784 

0.2579 

1.55 

0.383 

10.0 

0.4006 

0.4033 

0 . 1430 

0.2985 

1.55 

0.383 

20.0 

0.4431 

0.4498 

0.2738 

0.3011 

1 53 

0.71C 

3.0 

0.0997 

0.0364 

0.0211 

0.0137 

1.53 

0.710 

4.0 

0.1747 

0.2078 

0.0357 

0.0272 

1.53 

0.710 

5.0 

0.2237 

0.2814 

0.0567 

0.0407 

1.53 

0.710 

6.0 

0.2835 

0.3254 

0.0438 

0.0542 

1-53 

0.710 

10.0 

0.3700 

0.4227 

0.1294 

0.1229 

1.53 

0.710 

15  0 

0.4326 

0.4882 

0.1419 

0.1433 

1.53 

0.710 

20.0 

0.5100 

0.5277 

0.2594 

0.2890 

1.53 

0.710 

30.0 

0.5632 

0.6043 

0.2430 

0.2739 

1.53 

0.710 

40.0 

0.6344 

0.6446 

0.3799 

0.3251 

1.97 

0.710 

0.3 

0.0800 

0 

— 

-- 

1.97 

0.710 

0.4 

0.1282 

0.0955 

0.C160 

0.0169 

1.97 

0.710 

0.6 

0 . 1940 

0.1792 

0.0351 

0.0277 

1.97 

0.710 

1.0 

0.2531 

0.2444 

0.0290 

0.01*54 

1.97 

0.710 

2.C 

0.2655 

0.3065 

0.1004 

0.C695 

1.97 

0.710 

3.0 

-- 

0.3420 

... 

0.0060 

1.97 

0.710 

5.0 

0.3627 

*0.3754 

0.1878 

0.2467 

1.97 

0.710 

7.5 

0.3910 

0.4081 

0.1476 

0.2376 

1.97 

0.710 

10.0 

0.4328 

0.4290 

0.1749 

0.3200 

1.97 

0.710 

15.0 

0.4806 

0.4531 

0.1979 

... 

Such  fat  is  much  more  difficult  to  damage  than  skin  tissues, 
while  media  such  as  glands,  end  blood  vessels  are  not. 

As  a consequence  depths  of  damage  beneath  the  skin  were 
highly  dependent  upon  the  presence  of  glands  or  blood  ves- 
sels In  regions  of  pronounced  heating. 

Rubv  Laser  Exposures — No  irreversible  damage  was  pre- 
dicted  for  the  5.9  and  TT.8  joule  exposures  involving  a beam 
radius  of  0.77  cm  described  beneath  Table  £.  This,  of  course, 
is  what  we  found  experimentally.  However,  damage  was  pre- 
dicted as  a consequence  of  the  3.48  joule  exposure  with  a 
beam  radius  of  0.17  cm.  The  damage  extended  over  a radius 
of  0.1.541  cm  and  a depth  of  0.1067  cm.  This  finding  con- 
flicts with  the  fact  that  no  damage  was  found  histologically. 
Only  one  explanation  could  be  advanced  for  this  discrepancy- - 
namely  attenuation  of  the  laser  beam  by  vapors/particulates 
released  by  beam  impact. 


Experimental  results  are  consistent  with  observations 
of  Kuhns  et  al.  (12)  and  Lawrence  (13) . Kuhns  indicates 
that  42  joules/cm2  are  needed  to  produce  a slight  lesion  in 
white  pig  skin.  If  all  the  energy  of  our  ruby  laser  were 
con tained. within  0.17  cm,  the  energy  density  would  be  38.3 
joules/cm  . 

To  gain  a better  insight  into  the  magnitude  of  any 
attenuation,  a compute  run  was  executed  with  the  incident 
reduced  by  half.  The  predicted  radius  and  depth  of  damage 
were  still  significant,  namely,  0.1142  and  0.0558  cm,  re- 
spectively. Figure  18  shows  that  the  temperatures  are  very 
appreciable  even  when  only  half  of  the  incident  energy  is 
considered.  These  results  suggest  that  attenuation  is  very 
substantial. 


DEPTH  BELOW  SURFACE  OF  SKIN,  cm 

Figure  18.  Temperature  predictions  due  to  ruby  laser  pulse 
(pulse  energy  **  1.74  joules,  pulse  duration  * 
5-10"^  sec;  beam  radius  *=  0.17  cm  at  l/ez  points). 
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SUMMARY  AND  CONCLUSIONS 


The  skin  model  provides  a wide  variety  of  options  to 
the  user.  These  include 

• laser  exposures  involving 

- single  pulses 

- multiple  pulses  which  are  identical;  or  have 
different  powers,  durations,  and  repetition 
rates 

- any  wavelength 

Beam  profiles  may  have  any  shape  provided  they  are  radially 
symmetric.  Incident  beams  are  considered  normal  to  the 
surface  of  the  skin. 

The  model  allows  for 

• differences  of  thermal,  optical,  physiological 
properties  with  depth 

• temporal  changes  in  optical/thermal  properties 
and  in  water  content 

• blood  flow  variations  with  depth 

• formation/ growth  of  steam  blisters 

• heat  losses  to  the  environment 

• heat  losses  in  transforming  water  into  steam 

• interception  of  radiation  by  a hair  follicle. 

The  model  predicts  transient  temperatures,  extent  of  irre- 
versible damage,  and  degree  of  burn. 

Basic  techniques  used  to  develop  the  model  are  described 
in  the  section  "Skin  Model"  and  in  Appendixes  A and  B.  Opera- 
tional details  are  described  in  Appendix  C.  Input  data  for 
the  code  are  given  in  the  section  "Data  Needed  by  the  Skin 
Model,"  and  sample  computer  runs  are  presented  in  Appendix  C. 

Depths  and  radii  of  irreversible  damage  predicted  by 
the  code  were  generally  in  good  agreement  with  those  deter- 
mined histologically  from  COo  laser  exposures  of  pigs,  but 
there  was  poor  agreement  with  exposures  of  pigs  to  our  ruby 
laser.  In  this  case,  the  model  predicted  appreciable  damage 
while  none  was  evident  from  histologic  observations.  We 
suspect  that  the  discrepancy  is  due  to  the  attenuation  of 
the  beam  by  vapors  and  particulates  rather  than  due  to  data 
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errors.  Material  discharge  was  observed  on  impacting  the 
skin  by  the  intense  ruby  pulses.  Similar  discharge  was  not 
produced  by  the  CO2  beam  in  that  the  CO?  laser  power  is 
several  orders  of  magnitude  less  than  tne  ruby  laser. 

Beam  attenuation,  if  such  is  the  cause  of  the  above 
discrepancy,  is  very  appreciable.  Model  runs  indicate  that 
beam  intensities  must  be  reduced  by  more  than  half  before 
damage  becomes  insignificant.  This  aspect  of  the  problem 
remains  to  be  resolved.  For  this  reason,  we  recommend  that 
analytical/experimental  studies  be  undertaken  to  determine 
the  conditions  under  which  attenuation  becomes  important 
and  devise  means  to  account  for  such  in  the  model.  Unless 
this  is  done,  large  uncertainties  will  exist  in  the  model 
predictions  involving  rapid  delivery  of  energy. 
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APPENDIX  A 


FINITE- DIFFERENCE  METHOD  USED  TO  CALCULATE  TEMPERATURES 


INTRODUCTION 

In  this  appendix  we  shall  describe  the  finite-difference 
technique  for  predicting  transient  temperatures  in  biological 
tissues.  The  technique  provides  for  a wide  variety  of  thermal 
conditions  and  was  originally  developed  by  Peaceman  and 
Rachford  (17) . Subsequently  it  was  applied  to  problems  in- 
volving cylindrical  coordinates  by  Mainster  (14)  and  then  by 
Takata  (23)  to  predict  laser- induced  thermal  damage  to  eyes. 

In  essence  the  method  is  based  upon  finite- differences 
in  which  thermal  gradients  associated  with  one  of  the  coor- 
dinates are  treated  implicitly  while  the  gradients  in  the 
other  coordinate  are  treated  explicitly.  This  procedure  is 
reversed  following  each  set  of  calculations . The  result  is 
stable,  accurate  temperature  predictions  using  time  step 
orders  of  magnitude  larger  than  those  required  by  standard 
explicit  finite-difference  techniques. 

Here  we  have  upgraded  the  technique  to  accommodate 

• heat  losses  to  the  environment 

• thermal  effects  of  variable  blood  flow  with  depth 

• steam  blisters 

• heat  losses  due  to  the  generation  of  escaping 
steam 

• temporal  as  well  as  spacial  variations  of  thermal 
properties 


FINITE- DIFFERENCE  TECHNIQUE 

Three  assumptions  are  made  in  developing  the  finite- 
difference  equations . These  are 

• Initially  the  biological  media  is  at  a uniform 
temperature.  Biological  heating  is  neglected. 

• Blood  flow  acts  as  a heat  sink  in  which  blood 
enters  incremental  small  tissue  volumes  at  the 
initial  body  temperature  of  the  tissues  and 
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leaves  at  the  tissue  temperature.  Changes  in 
the  blood  flow  with  temperature  are  neglected. 

• The  heat- transfer  coefficient  associated  with 
environmental  heat  exchange  is  considered  con- 
stant independent  of  temperature. 

These  assumptions  do  not  reflect  upon  the  capabilities  of 
the  method  and  can  easily  be  upgraded  or  eliminated  according 
to  how  well  one  is  able  to  quantify  each  of  the  phenomena  for 
specific  individuals  and  environmental  conditions. 

Spacial  Grid 

To  conserve  on  computational  time,  an  expanding  grid 
is  used  as  illustrated  in  Figure  A-l.  Within  regions  of 
greatest  heat  deposition,  small  uniform  Ar,  Az  spacial  in- 
crements are  selected.  Here  the  region  of  most  pronounced 
heating  is  considered  located  just  below  the  surface  as 
would  be  the  case  for  skin  burns.  In  this  figure,  the 
first  Nl  radial  increments,  i.e.  Ar^,  Ar2  ...  Ar«,  are  equal 
as  are  the  first  Ml  axial  increments  Az^,  Az?  ...  Azmi- 
Beyond  the  uniform  grid,  the  radial  and  axial  increments 
are  progressively  increased  as  follows: 

Ar^+j,  - C1Arj  » j * Nl  to  N (A-l) 

Az^+-^  “ i 3 Ml  to  M (A-2) 


One  important  condition  needs  to  be  satisfied  in  selecting 
the  grid — that  is  that  the  expanded  grid  must  extend  into 
regions  of  negligible  temperature  rise. 

Problem  Definition 


In  the  equations  to  follow,  all  tissue  temperatures  v 
are  measured  from  the  environmental  temperature  ve  to  sim- 
plify calculations  of  environmental  heat  transfer. 


Heat  Conduction  Equation: 


PC 


9v 

at 


+ K |v  + 

r 3r 


arCKar;  3z 'az' 


- B’C^v  - q (A- 3) 


Initial  Condition: 


v « v - v 
o e 


(A- 4) 
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Figure  A-l.  Radial  and  axial 


Boundary  Conditions ; 


KH ' 0 

at 

r “ 0,  all 

t 

(A- 5) 

-4}  - -v 

at 

2=0,  t > 

0 

(A- 6) 

v +v„  - v 
o e 

as 

X *o  f z ■+■  00 

(A- 7) 

Steam  Blisters s 


Vv' 


I ) 

Vs 


(A-8) 


Finite-Difference  Approximations 

The  following  finite -difference  approximations  are  used 
to  represent  the  various  partial  derivatives  of  equation  A-3, 


-(— ) I 

rv3r' 1 


5,  A- 

■6,  and  A-8 

Ki,j 

fvl,j+l,k  ‘ 

rj 

L rj+i " 

0,  j 

- 1,  all  i 

'rj-l  J 


i “2, 


N,  all  i 


(A- 9) 


~ 2Ki,j  [viJ-H,k  - vi,j,k  . ^.l.k,  - 

rj+rrj-i  1-  rj+i  “ rj  rj  ■ rj-i  J 

■f  j-2,  ...N, 

rj+l  “ *j-l  L rj+l  “ rj-l  J 


all  i 


2K  , 

~ 2 
Ar^  ' ' 


k " vi, 1 ,k 


),  j -1,  all  i 


(A- 10) 


£<k!£ 


Ki+l.i  " K 

zi+l  ’ z 


LA [~Vi+l  A »k 

zi-l  L zi+l~  zi  Z1  ' zi-l  J 

j ' *1-1..)  rvi+i,j,n  ~ vt-i,j,fci  i . 2 M 

1 " zi-i  L zi+i  * zi-i  J 


all  j 


^1  i k ^2  Ik  ^ 

" ~ ^ f ^2  <v2,j,k'  vl,j,k>  "^(vl,j,k  + vl>j,k+l/2)* 


i - 1,  all  j 


(A-ll) 


Steam  blisters  are  allowed  to  form  or  spread  radially 
whenever  a given  temperature  is  achieved  at  the  depth  zt. 

For  values  of  I greater  than  2,  the  following  two  equations 
replace  the  particular  expressions  of  equation  A-ll  with  i, 
j values  associated  with  the  blister. 

Jz(Kf^  1 1_1  j " Zj  -~zI_2  |*W*vIfj,k  " VI-1 , j ,k^ 

_ K [vI-ltj,k  ’ vI-2,j,_kT|  (A-12) 

KI-l,j  L zl-\  ' zl-2  il 


(k|^)|  kt  . [ -I+^ » j tK  1 

ZI+1  " ZI-1  L I,J  L zI+l,j  * zI,j  J 


- Vvx.j,k  - vi-i,j,k>]  (A-l3) 

For  half  time  steps,  one  merely  replaces  k by  k+1/2.  For  an 
I value  of  2 one  uses  the  following  expressions. 

* 5zj["  he'(vl,j,k  + vl,j,k+l/2)  " 2hw(vl,j,k  ‘ v2,j  .k>] 

(A- 14) 


>n>i2J  - 4[v<v1>j>k  - v2lJ.k>  + 

,(v3J.k  ' v2J,k}]  (A- 15) 

Finally  the  expression  for  rates  of  temperature  change  is 
simply  described  as  follows : 


(K2.J  + Sjj 
2(*3  - V 


(A- 15) 


pc|f| 

3t  i , j ,k+l/2 


where 


2pj,jCi,. 


tk+l  ‘ fck 


ri* j »k+l/2  ” vi, j ,k 


),  all  i,  j,  k 
(A- 16) 

(A-17) 


Finite-Difference  Equations 


Here  half-time  steps  Atfe/2  are  considered.  During  the 
first  half-time  step,  radial  gradients  are  treated  explicitly 
while  axial  gradients  are  treated  implicitly.  This  set  of 
equations  is  termed  ROW.  During  the  second  half-time  step, 
the  radial  gradients  are  treated  implicitly  while  the  axial 
gradients  are  treated  explicitly.  This  set  of  equations  is 
termed  COLUMN. 

Substituting  the  finite-difference  approximations  of  equa-*- 
tions  A-9,  A-10,  A-ll  and  A- 16  into  equation  A-3  yields  the  fol« 
lowing  set  of  equations: 

ROW: 

- A1(i,j)vi_1  j k+l/2  + (a2 (i» j)  + 2pi,jCi,j/Atk)vi,j, k+l/2 

- A3(i,j)vi+i j>k+i/2  “ Bi(i*J)vi, j_i,k  ’ B2(i’^)vi,j,k 

+ B3(i,j)vij+1  k + 2pi,jCi,jvi,j,k/Atk  + qi,j, k+l/2  * 


qi,j, k+l/2 


(A- 18) 


COLUMN: 


“ Bl(i,J)vi,j-l,k+l  + (B2(i,J)  + 2pi,jCi,j/Atk)vi,j,k+l 
- B3(i»j)v1  j+1  k+1  - Ai<i,j)v1_1  j|k+i/2  ‘ A2(i,J)vi,j,k+l/2 
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+ A3(i,j)vi+i>j  >k+l/2  + 2pi,jCi,j  vi,j 
“ qi,j,k+l/2 

Expressions  for  the  coefficients  A,,  A 
are  presented  below 

A^i.j)  - K±  jZj^Ci)  + (Ki+1j  - Ki-l,j 

A2(i,j)  * Ki>jZ3(i)  + 1^/2 
A3(i.j)  = Ki>jZ4(i)  - (Ki+1>j  - K,_1  j 


,k+l/2/Atk  + qi,j ,k+l/2 

(A- 19) 

2 » Aj,  ®2  ’ 

)Z2(i)' 

* i - 2,  . . . M,  all  j 
)Z2(i)j  (A-20) 


Af (i , j ) 
A2(i,  j) 

A3(i.j) 

Bj/i.j) 

B2(i,j) 

B3(i,j) 

B^i.l) 

B2(i,l) 

B3(i,l) 


0 


K-,  . + K„  . h 

+ BlV2  i-1.  aiu 

(AZj.)  1 

hjtlllbl 

(AZi>2 

Ki , j R1  ^ ^ + (Ki,j+l  " Ki,j-1)R2(J) 
Ki,jR3(j)  + 5iCb/2  ’ J - 2.  . 

Ki,jR4^>  - <Ki,j+l  " Ki.j-1>R2<J>( 

0 


K.  0 + K 
± > £ 


+ "A/2  + ^ 


*1.2  + *1.1 
(Ai^)2 


\ j - 1,  all  i 


(A-21) 


. N,  all  i 
(A-22) 


(A-23) 


Whenever  a steam  blister  forms  or  grows,  one  should  re- 
place those  Aj_ , A2,  and  A3  coefficients  having  i values  of  I 
and  1-1,  When  I > 2 theJcoefficients  are: 
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(A- 24) 


A2(I-l,j)  - KI_ljZ1(I-l)+BI_1Cb/2  + \Z5(I-l) 

A3(I-l,j)  - hwZ5(I-l) 

A1(I.J)  - 2hwZ5(I) 

A2(I,j)  - Kj  jZ^(I)  + ffjC^/2  + \Z5(I) 

A3(I,j)  - KT  jZ4(I) 

If  I “ 2 one  should  replace  those  A^,  Ao, and  A3  coefficients 
having  i values  of  1 and  2 by 


A2dJ)  - <he  + 2hw)/z1  + B^/2 

A3(l,j)  - 2hv/zl 

A1(2,j)  - 2hw/z3 

A2  (2 » j ) - 21^/23  + <K2J  + K3  j)/(z3Cz3-z2))  + ^2°b^2 

A3(2,j)  - (K2j  + K3 j)/(z3(z3-z2))  (A- 25) 

In  equations  A-20  through  A-25  the  functions,  R]_,  ...  R*, 

Zi,  ...  z 5 depend  only  upon  the  grid  variables  r j , asH 

describecf  below 


Zx(i) 


2 

(zi+i  - zi_1)(zi  - *i_i) 


(A-26) 


Z2(i) 

Z3(i) 

Z4(i) 


(zi+l  - Zi.]^)2 

2 + 2 

^i+l  ‘ zi-l)^i+l  ‘ zi)  (zi+l  ' zi-l}^zi 


2 

(zi+i  - zi-i) (zi+1  " zi> 


(A-27) 


(A- 2 8) 


(A- 29) 
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z5(i) 

zi+l  ' zi-l 

(A- 30) 

^d) 

1 l 2 

rj(rj+l  ' ^-l5  (rj+l  " rj-l)(rj  ' 

(A- 31) 

R2(j> 

1 

(rj+l  ‘ rj-l} 

(A-32) 

R3(j) 

2 l 2 

(A- 33) 

Vj) 

1 . 2 
rj(rj+l  “ rJ-lJ  (rJ+l  " rj-l^^rj+l 

(A- 34) 

In  matrix  form,  equation  A-18  and  equation  A- 19  are  of 
tridiagonal  form  with  non- zero  elements  along  the  main  dia- 
gonal and  on  either  side  of  the  diagonal.  Means  for  serving 
such  matrices  are  described  by  Takata  et  al. (23)  and  involve 

simple  algebraic  solution  of  each  set  of  equations  for  ROW 
and  COLUMN.  To  illustrate  the  procedure  consider  the  first 
two  expressions  of  equation  A- 18  wherein  i = 1 and  2. 

These  expressions  are  given  below. 


(A2(l,jl  + 2P1  ^ ^ 

= Gi.j 

- Ai<2»j>vi,j,k+l/2 


/Atk)vl,j,k+l/2  "A3(1,j)v2,j , k+1/2 

(A-35) 

+ (A2(2,j)  + 2p2 ,jC2,j/Atk>v2,j  k+1/2 


- A3<2,j)v3  j#k+1/2  * G2 ,j 


(A- 36) 


where  j and  G2  j represent  the  values  of  the  right-hand 
side  of  equation  A- 18. 

First  equation  A-35  is  solved  for  vi  « ,k±l/2  and  used 
to  eliminate  v^  j k+1/2  equation  A-36.  The  resultant 

equation  is  then  Solved  for  V9  i v+i/2  and  used  to  eliminate 

expression  X&  “ 3)  of  equation  A-18. 
for  all  M+l  expressions  of  equation 
following  set  of  equations . 


V2  « k+1/2  ^rom  next 
By 'repeating  the  process 
A-18 , one  arrives  at  the 
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A3aj) 

Vi,j,k+l/2  F^~  v2, j ,k+l/2  “ D1 

A3(2,j) 

v2 , j ,k+l/2  ' F2  v3,j ,k+l/2  °2 

VM-1,  j ,k+l/2  ‘ a3<M-1J)vm ^ k+1/2  * ^-1 
vM,j,k+l/2  = ^ 
for  i equal  to  1: 

F1  = A2^X» j)  + 2pl, jCl,j^Atk 

E1  " 

D1  * Gl,j/Fl 

for  i greater  than  1: 

*=  A2(i, j)  + 2pi  j^i  j^A^k 

E±  = -A^i.JJ/Fj. 

Di  “ <Gt.j  + 


^ (A-37) 


/ 


> (A- 38) 


/ 


To  solve  equation  A-37  for  a specific  value  of  j , one 
first  evaluates  each  of  the  terms  D^,  E±,  and  Fj_  of  equation 
A- 38  for  i values  ranging  from  1 to  M.  Then  the  temperatures 
vi,j ,k+l/2  are  computed  starting  with  i*M  and  ending  with  i*l 
for  particular  values  of  j . The  result  is  described  below: 


vMj,k+l/2  " DM 

t»  j.  EM- 1 

vM-l,j,k+l/2  “ °M-1  + VM,  j ,k+l/2 

• E1 

vl,j ,k+l/2  ” D1  + F1  v2 , j ,k+l/2 
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The  procedure  for  solving  equation  A- 19  is  the  same  as 
that  described  above  for  ROW.  In  doing  so  the  arrays  Aj_, 
A2,  and  A3  of  equations  A-37  and  A-38  are  replaced  by  B^, 
B2,  and  B3;  the  j array  assumes  the  values  of  the  right- 
hand  side  of  equation  A-19;  and  i is  held  fixed  while  j is 
allowed  to  vary  from  1 to  N.  Order  of  the  ROW  and  COLUMN 
calculations  is  not  important. 

In  solving  equations  A-18  and  A-19,  all  terms  on  the 
right-hand  side  of  these  equations  are  known  apriori  ex- 
cept for  the  array  5i,j  k+1/2*  This  array  describes  the 
rate  of  heat  losses  In  transforming  water  into  escaping 
steam  and  is  zero  tinless  steam  is  being  generated.  At  the 
start  of  each  full-time  step  At^,  all  elements  of  the 
array  q^  * k+1/2  are  8et  e9ua^  to  zero.  Then  the  ROW  and 
COLUMN  calculations  are  performed.  If  none  of  the  pre- 
dicted temperatures  exceeds  the  temperature  of  boiling 
water,  the  computations  are  completed.  Otherwise  estimates 
are  introduced  for  q at  the  locations  of  excessive  tem- 
perature. Following  each  set  of  temperature  calculations 
the  trial  values  are  revised  according  to  temperature 
deviations  from  that  of  boiling  water,  and  a new  set  of 
temperature  calculations  is  conducted.  Each  set  of  cal- 
culations utilizes  temperatures  computed  from  the  previous 
time  step.  Usually  4 trials  are  needed  to  arrive  at  the 
appropriate  ^ values. 

_ Once  water  is  expended  from  as  element,  the  particular 
9i  j , k+1/2  values  are  set  equal  to  zero.  This,  of  course, 
allows  temperatures  to  rise  above  the  temperature  of  boil- 
ing water. 


Two  techniques  are  used  to  determine  j k+l/2=  ®aca 
technique  computes  additive  changes  to  the  pfe^iouB  qi,j, k+1/2 
values.  The  first  technique  provides  fine  refinements  and  is 
presented  below. 


Af  - Z (v 


w'vi,j,k+l 


- Xjp 


i.j  i 


,J/Atk 


(A-40) 


The  magnitude  of  the  above  correction  is  controlled  via  the 
dimensionless  factor  Zw.  Unless  one  encounters  a problem  of 
convergence,  this  factor  is  set  equal  to  1.  When  Zyj  « 1, 
the  numerator  of  equation  A-40  represents  the  excess  sensi- 
ble heat  per  unit  volume. 

The  second  technique  yields  larger  q corrections,  and 
is  used  when  much  of  the  heat  absorbed  from  the  laser  es- 
capes to  other  grid  elements.  In  such  instances,  larger 
corrections  are  needed  to  achieve  if  values  of  the  proper 
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magnitude  with  the  fewest  trials.  Choice  between  the  two 
techniques  is  made  by  comparing  the  absorbed  heat  with  the 
rise  in  sensible  heat  when  all  q*  j k+1/2  values  are  zero, 
q corrections  are  estimated  by  tneJ second  technique  as  fol- 
lows : 


Af  = Zw(Xw  " Vi,i ,k+l^  . — 

-V8i,j,k+l)  qi.J.k+l/2 


(A-41) 


where  vsij4k+l  and  v^  * ^+1  represent  the  temperatures  be- 
fore and  following  the ’ J f j k+1/2  change.  The  denominator 
represents  the  temperature  change  produced  by  the  previous 
Aq;  while  ^ - viifc+1  represents  the  desired  temperature 
change  needed  to  yield,  the  temperature  of  boiling  water  at 
1 atmosphere  of  pressure. 

The  expressions  given  by  equations  A-40  and  A-41  are 
only  used  if  the  resultant  values  do  not  abstract  more 
heat  than  allowed  by  the  available  water.  If  the  available 
water  is  too  small,  then  q is  set  equal  to  the  following 
expression 

^i,  j , k+1/2  " wi,j  Q/Atk  (A"42 

The  numerator  represents  the  amount  of  heat  necessary  to 
transform  the  remaining  water  into  steam.  Once  the  water 
is  expended,  temperatures  will  rise  above  that  for  boiling. 


Generally  4 sets  of  temperature  calculations  are  re- 
quired to  closely  approximate  the  9i,jfk+l/2  values  needed 
to  achieve  temperatures  of  boiling  water. 


Immediately  thereafter,  the  mass  of  escaping  steam  is 
subtracted  from  the  amount  of  water  per  cm3  surrounding 
each  of  the  affected  grid  points . Once  the  water  has  been 
expended  from  the  media  surrounding  a particular  grid  point, 
all  future  q are  zero  for  the  grid  point.  This,  of  course, 
allows  temperatures  to  rise  without  bounds. 


Errors 


Errors  associated  wit’  the  method  are  discussed  by 
Mains ter  (14) . In  his  paper  Mains ter  indicated  that  he 
could  maintain  excellent  computational  accuracies  in  spite 
of  sequential  increases  of  the  time  steps.  This  was  true 
with  KAt/(pCAzz)  or  KAt/(pCAr2)  values  as  large  as  3*10^. 
We  concur  with  this  finding  provided  the  temporal/spacial 
derivatives  of  the  thermal  gradients  are  not  excessively 
large.  It  is  not  true  immediately  following  abrupt 
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pronounced  changes  of  heating  such  as  at  the  start  or  end 
of  a laser  pulse.  At  such  times  it  is  necessary  to  use 
small  time  steps  approximating  those  required  by  standard 
explicit  finite-difference.  Subsequent  time  steps  may  be 
increased.  In  this  regard  we  have  found  that  the  time 
steps  may  be  expanded  sequentially  by  a constant  factor 
without  adversely  degrading  accuracy  as  follows 


Atk+1  “ C3Atk 


(A-43) 


To  maintain  accuracies  of  the  order  of  a few  percent  or  less, 
C3  should  not  exceed  approximately  1.4.  Accuracy  will  be 
improved,  of  course,  with  smaller  C3  values. 


Nomenclature 
Al  ^2^3  ^ 


B1’B2’B3 


C1,C2,C3 


coefficients  of  temperatures 

blood  flow  per  unit  volume  of  tissue,  g/ cm  -sec 
coefficients  of  temperatures 
specific  heat,  cal/g-°C 

factors  used  to  expand  radial  increments , 
axial  increments  and  time  steps,  respectively, 
dimensionless 

0 

heat-transfer  coefficient,  cal/cm  -sec-°C 

index  associated  with  axial  grid  increments 
or  nodal  points 

i index  associated  with  all  axial  grid  points 
at  depth  of  blister  formation 

index  associated  with  radial  grid  increments 
or  nodal  points 

index  of  time  steps 

thermal  conductivity,  cal/cm-sec-**C 

total  number  of  axial  increments 

number  of  uniform  axial  increments 

total  number  of  radial  increments 

number  of  uniform  radial  increments 


Q 

q(r,z) 

q 


r 

t 

v 

w 

*w 

z 

Zw 

2w 

6 

P 


heat  of  evaporation  for  water,  cal/g 

2 

radiant  intensity  per  unit  area,  cal/ cm  -sec 

rate  of  heat  deposition  into  unit  volume  of 
tissue,  cal/cm’-sec 

rate  of  heat  loss  per  unit  volume  of  tissue 
due  to  the  generation  and  escape  of  steam, 
cal/cm3-sec 

radius , cm 

elapsed  time  from  start  laser  exposure,  sec 
temperature , °C 

3 

mass  of  water  per  unit  volume  of  tissue,  g/cm 

temperature  of  boiling  water  (1  atm.  of  pres- 
sure) , °C 

depth,  cm 

dimensionless  factor  used  for  purposes  of 
convergence,  usually  equals  1 

depth  of  steam  blister,  cm 

incrementally  small  distance  approaching  zero, 
cm 

3 

density,  g/cm 


Subscripts 

b 

e 

i,  j 
k 

M, M1 

N, N1 


blood 

environment 
see  above 
see  above 
see  above 
see  above 


72 


APPENDIX  B 


APPROXIMATE  TECHNIQUE  FOR  REDUCING 
COMPUTATIONAL  TIMES  OF  LONG  PULSE  TRAINS 
(NON-CODED  PULSES  - CONSTANT  LASER  POWERS/TIMES) 

INTRODUCTION 

Long  pulse  trains  involve  numerous  flux  or  power  changes. 
These  numerous  changes  require  many  time  steps  because  time 
steps  can  only  be  expanded  geometrically  during  periods  of 
constant  flux  such  as  during  and  between  pulses.  Immediately 
following  the  start  or  end  of  each  pulse,  it  is  necessary  to 
return  to  small  time  steps  to  preserve  accuracy. 

Two  options  may  be  used  to  minimize  the  number  of  time 
steps.  The  first  applies  to  situations  in  which  temporal 
changes  in  the  thermal  properties  are  of  negligible  impor- 
tance, and  all  boundary  conditions  are  independent  or  linearly 
dependent  upon  temperature.  Under  such  conditions,  the  tem- 
perature rises  produced  by  each  pulse  are  independent  of  each 
other.  This  allows  one  to  calculate  the  temperature  rises 
produced  by  a single  pulse,  and  simply  sum  the  contributions 
from  each  pulse  allowing  for  time  differences.  This  tech- 
nique was  used  for  the  eye  models  (23) . 

Figure  B-l  illustrates  the  technique  for  treating  mul- 
tiple pulses  allowing  for  temporal  changes  in  the  thermal 
or  optical  properties.  In  essence  the  method  eliminates 
many  flux  changes  by  replacing  several  consecutive  pulses 
by  a single  "pulse"  having  the  mean  flux  needed  to  conserve 
energy  from  the  several  pulses.  In  doing  so,  selected  pulses 
are  preserved  to  afford  accurate  temperature/ damage  predic- 
tions during  representative  pulses  of  the  train.  Incremental 
damage  predicted  during  the  selected  pulses  is  then  weighted 
to  account  for  all  pulses. 


ACCURACY 

This  section  assesses  the  consequence  of  using  mean  flux 
upon  temperatures  produced  during  succeeding  pulses.  The 
total  number  of  pulses  shall  be  designated  by  n]+n2,  with  the 
first  n^  pulses  replaced  by  the  mean  flux.  The  remaining  n2 
pulses  shall  be  preserved  and  shown  at  the  center  of  the  first 
group  of  pulses  shown  in  Figure  B-l.  Accuracy  will  be  deter- 
mined by  comparing  temperatures  predicted  during  the  last  of 
the  n^+r^  pulses  with  exact  temperatures  in  which  all  pulses 
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are  preserved.  For  this  purpose  we  shall  consider  a semi- 
infinite body  in  which  the  flux  is  uniformly  distributed 
over  the  surface.  The  energy  will  be  considered  entirely 
absorbed  by  the  surface. 

To  arrive  at  the  exact  surface  temperature  rises  we 
shall  apply  Duhamel's  Principle  to  the  solution  (3)  for 
the  surface  temperature  rises  produced  by  a constant  flux. 
The  temperature  rise  Ts  at  the  beginning  of  the  last  of  the 
nl+n2  is  given  by 


nl+n2“l 


V rKpC 


I 

n-1 


(B-l) 


while  the  temperature  rise  at  the  end  of  the  last  pulse  is 
given  by 


2<l 


nl+n2~l 


V'irKpC 


y (VnT0+T  - V^q) 


n«0 


(B-2) 


where 


q 

K 

P 

C 


flux  during  each  pulse,  cal/cm  -sec 

thermal  conductivity,  cal/cm-sec-°C 
3 

density,  g/cm 
specific  heat,  cal/g-°C 


tq  - reciprocal  of  repetition  rate,  sec 


t - pulse  width,  sec 

Using  the  meag  laser  flux  of  tq/x0,  yields  the  approxi- 
v. 

below: 


mate  values  Ts  and  Te  for  Tfi  and  Te,  respectively,  presented 


!=§==  < V (n1+n2-l)T0  - ^(n2-l)7Q) 


T0V^c 


.2<l 


V TTKpC 


n2*l 

I 

n-1 


(B-3) 
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2xq 

tq1/  TrKpC 


( *v  (n.j+n2-l)x0*;-x '- 


V (n2-l)x0+  t) 


+^fe  i (vn°+T  (b'm 

n-0 

In  examining  equations  B-l  through  B-4  it  may  be  noticed 
that  the  ratios  Ts/Ts  and  Te/Te  are  independent  of  the  flux 
q and  thermal  properties  K,  p and  C.  They  do  however  depend 
upon  x/xo  and  upon  the  values  for  n^  and  n2-  Results  of 
evaluating  these  ratios  on  a computer  are  presented  in  Tables 
B-l  through  B-3  as  a function  of  ni  and  n2  for  three  x/xQ 
values.  It  may  be  observed  that  trie  agreement  improves  with 
the  number  of  pulses  ni  and  n2  for  each  of  the  three  r/x0 
values  used,  namely  0.1,  0.001  and  0.00001.  The  best  agree- 
ment is  achieved  with  the  smallest  x/xQ  value,  namely  0.00001. 
This  value  is  more  typical  of  the  values  associated  with 
pulsed  lasers  than  the  other  two  values  employed. 

Of  primary  concern  is  the  minimum  number  of  individual 
pulses  n£  to  achieve  accurate  temperatures.  In  examining 
Tables  B-l  through  B-3,  it  may  be  observed  that  2 or  3 
pulses  will  limit  the  errors  in  the  peak  temperatures  to 
less  than  about  2%.  While  errors  in  the  temperatures  at  the 
start  of  the  last  pulse  are  slightly  larger,  they  are  of 
minor  importance  insofar  as  damage  is  concerned.  Moreover 
errors  associated  with  indepth  temperatures  and  two-dimensional 
heat  transfer  will  be  less  than  the  values  indicated  above. 

To  follow  transient  changes  in  the  damage,  about  10 
groups  should  be  adequate  to  represent  100  or  more  pulses. 

Less  groups  should  be  used  with  shorter  pulse  trains.  Re- 
maining pulses  should  be  placed  at  the  end  of  the  pulse 
train  and  treated  individually. 

PROGRAMMING 

This  method  requires  accurate  temperature  predictions 
during  and  immediately  following  selected  pulses.  The 
selected  pulses  should  be  spaced  at  regular  intervals  along 
the  length  of  the  pulse  train.  At  least  one  pulse  should 
be  preserved  prior  to  each  of  the  selected  pulse  or  pulses . 

All  other  pulses  are  represented  by  the  mean  laser  power 
distributed  uniformly  with  respect  to  time  from  one  pulse 
to  the  next. 
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TABLE  B-l.  RATIOS  OF  APPROXIMATE  TO  EXACT  SURFACE  TEMPERATURE  RISES  (t/tq  * 0.1) 


TABLE  B-2.  RATIOS  0?  APPROXIMATE  TO  EXACT  SURFACE  TEMPERATURE  RISES  (t/t0  - 0.001) 
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TABLE  B-3.  RATIOS  OF  APPROXIMATE  TO  EXACT  SURFACE  TEMPERATURE  RISES  (t/t0  * 0.0001) 
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treated  individually  at  end  of  pulse  train 


To  illustrate  the  method  we  shall  consider  a train  of 
40  pulses.  Six  series  of  consecutive  pulses  shall  be  re- 
placed by  the  mean  power  as  illustrated  by  the  squat  areas 
of  Figure  B-2.  Number  of  pulses  eliminated  are  presented 
over  the  shaded  areas.  The  beam  power  associated  with  in- 
dividual pulses  obviously  exceeds  the  mean  power  as  indi- 
cated by  the  figure.  Pulses  yielding  accurate  temperatures 
are  blackened.  At  least  one  pulse  should  precede  each  of 
these  pulses  to  fully  develop  temperature  transients. 

Table  B-4  indicates  the  valuer  needed  for  the  arrays 
NPG(L)  and  NPR(L)  to  structure  the  train  as  shown  in 
Figure  B-2. 


TABLE  B-4.  PROGRAMING  "MEAN  POWERS"  IETO  HOMCODED  PULSE  TRAISS 
L KPC(L)  HTR(L)  L HPG(I)  «P*(U 
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12  1 

13  5 

14  1 

15  1 

16  3 

17  1 

18  1 

19  1 

20  1 

21  1 


40 


7 

0 

0 

7 

0 

0 

2 

1 

1 

1 

40 


The  index  L indicates  the  order  in  which  individual 
pulses  or  mean  powers  are  to  be  considered.  The  array 
NPG(L)  represents  both  the  number  of  pulses  and  how  they 
are  to  be  treated.  For  normal  treatment  of  pulses,  NPG(L) 
is  set  equal  to  1.  NPG(L)  values  greater  than  X will  re- 
sult in  replacement  of  the  pulses  by  the  mean  laser  power 
as  shown  in  Figure  B-2. 

The  array  NPR(L)  should  be  set  equal  to  zero  except 
for  the  £ acted  pulses.  For  the  selected  pulses,  NPR(L) 
is  equal  . . the  number  cf  pulse»  represented  by  the  pulse. 
For  example,  the  first  "selected*'  pulse  of  Figure  B-2, 
shown  as  black,  has  an  L value  of  3.  It  represents  7 
pulses,  three  preceding  it  and  three  in  the  series  of  5 
pulses  following  it.  This  is  also  true  for  the  selected 
pulses  with  L values  of  6,  9,  12,  and  15. 
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B-2  Structuring  pulse  train  (40  pulses)  using  mean  power 
to  conserve  execution  time. 


APPENDIX  C 


SKIN  MODEL 
INTRODUCTION 

The  skin  model  consists  of  a main  program  plus  the  8 
subroutines  listed  below: 

• TIME  that  computes  the  time  steps  and  associated 
laser  powers 

• GRID  that  computes  the  grid  increments  (radial 
and  axial) 

• PROF  that  computes  the  laser  intensities  at  each 
of  the  radial  grid  points  determined  by  GRID 

• CWATER  that  computes  the  thermal  conductivities 
and  volumetric  heat  capacities  at  each  of  the 
grid  points  in  terms  of  variable  water  content 
in  the  tissues 

• BA  that  computes  the  matrix  elements  needed  to 
assess  the  temperature  rises 

• HTDEP  that  computes  the  rates  ox  energy  deposi- 
tion per  unit,  volume  of  tissue  at  each  of  the 
grid  points 

• TEMP  that  uses  the  alternating  explicit-implicit 
finite- difference  technique  of  the  CORNEAL  MODEL 
to  compute  temperatures  allowing  for 

- heat  losses  to  the  environment 

- heat  losses  due  to  blood  flow 

- heat  losses  due  to  transforming  water  into 
steam 

- steam  blisters 

• DAMAGE  that  computes  the  cumulative  thermal  damage 
at  each  of  the  grid  points  as  well  as  internal 
pressures  created  by  superheated  water 


Code  listings,  nomenclature,  and  sample  runs  are  pre- 
sented at  the  rear  of  this  appendix. 

A flow  diagram  of  the  major  code  routines  is  shown  in 
Figure  C-l.  All  routines  are  used  during  the  first  time 
step.  Thereafter  only  the  main  program  and  subroutines 
TEMP  and  DAMAGE  are  used  unless  water  losses  or  irreversible 
damage  have  not  occurred.  If  water  losses  occur  during  the 
previous  time  step,  subroutines  CWATER  and  BA  are  reentered 
to  reevaluate  thermal  properties  and  matrix  elements.  Con- 
trol is  exercised  via  the  parameter  IMAX  which  indicates 
the  maximum  depth  Z(IMAX)  over  which  water  has  been  lost 
during  the  previous  time  step.  During  the  first  time  step 
IMAX  is  set  equal  to  M (the  number  of  axial  intervals)  to 
ensure  subroutine  CWATER  is  entered. 

When  irreversible  damage  occurs,  subroutine  HTDEP  is 
reentered  to  reevaluate  the  rates  of  heat  deposition  using 
the  absorption  coefficients  of  damaged  tissue.  Here  the 
parameter  LMI  is  used  for  purposes  of  entry.  During  the 
first  time  step  it  equals  N.  Thereafter  LMI  indicates  the 
maximum  depth  (Z(LMI))  of  irreversible  damage. 

In  the  remainder  of  this  appendix  we  shall  describe  the 
code  according  to  the  listing  presented  at  the  rear  of 
this  appendix.  Statement  numbers  are  in  sequence  in  each 
routine.  We  shall  use  these  statement  numbers  for  refer- 
ence purposes.  For  example,  5.2  would  be  used  to  indicate 
the  second  line  following  statement  5.  Detailed  informa- 
tion required  to  operate  the  code  are  presented  in  the 
User's  Manual. 

Nomenclature  describing  the  variables  tc  be  discussed 
is  presented  at  the  rear  of  this  appendix  in  alphabetical 
order.  Variables  followed  by  dots  are  read  into  the  code 
as  input  data. 


DESCRIPTION  OF  COMPUTER  PROGRAM 
Main  Program 

This  portion  of  the  code  performs  the  following  functions 

• reads  input  data 

• calculates  the  DR  and  DZ  increments  along  with 
the  maximum  radius  RN  and  the  maximum  depth  ZM 

• controls  course  of  calculations 
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MAIN 

k-1 

TIME 

PROGRAM 

(first  time  step) 

UK1U 

PROF 

^ IS 
IMAK>0 


CWATER 


r IS  ' 
LMIi-II 


HTDEP 


TEMP 


DAMAGE 


Note : R 
IMAX 


index  of  time  step  - 1.2...KT 
the  maximum  depth  index  at  which 
water  has  been  lost  from  tissue, 
the  maximum  depth  index  at  which 
irreversible  damage  occurs, 
depth  index  where  skin  tissue  is 
alive . 


Figure  C-l.  Flow  diagram  of  skin  model. 
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• prints  input  data,  temperatures,  damage,  and 
peak  pressure  caused  by  superheated  water 

• interpolates  extent  of  irreversible  damage 
(radial  and  axial) 

• computes  degree  of  bum 

Data  cards  are  read  in  sequence  according  to  the  numbers 
shown  in  columns  73-80  of  the  listing.  Numbers  followed  by 
letters  indicate  the  particular  cards  needed.  For  example 
with  uniform  beam  profiles  one  should  use  card  (12,  UNIF) 
and  not  cards  (12,  GAUSS)  and  (12,  IRREG) . The  latter  cards 
are  for  gaussian  and  irregular  profiles,  respectively. 

With  single-pulse  exposures  card  14,NC,1  is  needed. 

Card  14.NC.X  is  needed  for  pulse  trains. 

If  the  pulse  train  consists  of  uniform  pulses  (non- 
coded)  and  is  to  be  treated  on  a pulse-by-pulse  basis,  no 
additional  cards  14,  ...  are  needed.  Otherwise  cards  (14, 
NC.GP)  are  required  to  group  the  noncoded  pulses. 

Coded  pulse  trains  require  cards  labeled  14, CODED. 

Statements  7. 2- 7. 4 — Here  the  heat-transfer  coefficient 
H is  set  equal  to  that  for  dry  surfaces  unless  a sweat  layer 
is  present.  The  value  0.0001  cm  represents  an  arbitrarily 
small  sweat  thickness  below  which  sweat  is  neglected. 

Statements  7. 3-9. 3--These  statements  are  used  only  if 
sweat  is  considered.  The  arrays  TH,  ABS,  TB,  and  BI.  are 
adjusted  to  allow  for  the  depth  of  sweat  TSWEAT. 

Statements  11. 1-18. 4- -This  portion  of  the  code  com- 
putes  the  radial  increment  DR  and  the  radial  extent  X0  of 
uniform- , gaussian-,  and  irregular-beam  profiles . At 
statements  12.1  and  12.2,  the  DR  increment  is  chosen  so 
that  the  uniform  profile  ends  halfway  between  the  Nl-th  and 
(Nl+1)  increments.  This  is  dene  so  that  heat  is  deposited 
equally  on  either  side  of  rin  . Statement  16.2  computes 
the  radius  X0  at  which  gaussian  profiles  become  insignifi- 
cant. Intensities  q of  normalized  gaussian  profiles  are 
described  by 

q - exp- (2r2/ (SIGMA)2)  (C-l) 

where  r =*  radius  in  cm,  q * 1 at  r - 0,  and  SIGMA  indicates 
the  extent  of  the  profile.  Substituting  CUT  for  q and  RIM 
for  r and  solving  for  SIGMA  yields 
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(C-2) 


SIGMA  = RIM  V -2/ln(CUT) 

Thus  equation  C-l  becomes 

q = exp(r2ln(CUT)/ (RIM)2)  (C-3) 

As  defined,  q *=  CUT  at  r * RIM.  This  portion  of  the  code 
replaces  q with  an  arbitrarily  small  number  exp-5  and  solves 
for  a radius  r at  which  the  intensities  are  insignificant. 

Statements  22.5,  24.2,  and  42 . 0--These  statements  com- 
pute the  duration  XX  of  the  laser  exposure. 

Statements  40.0-41. 3--These  statements  estimate  the 
depth  3(4” at  which  the  beam  intensity  is  insignificant. 

This  estimate  involves  choosing  a depth  at  which  the  inten- 
sity is  a very  small  fraction  (i.ev  exp- 8)  of  that  at  the 
surface . 

Statements  44.0  and  44-1 — These  statements  estimate 
the  distance  X3  over  which  heat  will  be  conducted  during 
the  duration  of  the  exposure,  namely  XX. 

Statement  44.4 — Here  ZM  is  set  equal  to  3 times  the 
sum  of  the  depths  X4  and  X3  associated  with  negligible  beam 
intensity  and  heat  conduction,  respectively.  The  factor  3 
is  greater  than  1 to  ensure  that  ZM  is  beyond  the  maximum 
depth  sensing  heat. 

Statement  44. 6- -Here  we  have  chosen  to  fit  uniform 
DZ  increments  within  the  sweat  plus  epidermis  by  setting 
Ml-1.  The  number  1 is  arbitrary.  More  than  2 increments 
will  appreciably  increase  execution  times  with  only  mar- 
ginal improvements  in  accuracy. 

Statements  44.7-44. 10 — These  statements  adjust  the 
uniform  radial  grid  to  accommodate  a hair  follicle  within 
the  first  radial  increment.  The  remaining  portion  of  the 
uniform  grid  is  subdivided  into  equal  increments  DR  if 
the  depth  DHF  of  the  follicle  is  set  equal  to  any  number 
greater  than  ZM. 

Statement  46 .0- -Here  RN  is  set  equal  to  1.5  times  the 
sum  of  the  radii  3(0  and  X3  associated  with  negligible  beam 
intensity  and  heat  conduction,  respectively.  The  factor 
1.5  is  greater  than  1 to  ensure  that  the  maximum  radius 
RN  extends  beyond  the  region  heated. 


/ 


89 


Statements  86 . 3-86 . 5 --The  indices  IMAX  and  LMI  are  set 
equal  to  M so  that  all  subroutines  are  callea  prior  to  the 
first  time  step.  JMAX  is  set  equal  to  N to  ensure  all  j 
values  are  used  in  subroutines  CWATER  and  BA. 

Statements  86.6-88.4 — These  statements 

• establish  the  first  grid  point  zTT  within  "live 
tissues" 

• establish  the  first  grid  point  zjp  within  the 
region  in  which  water  may  become  superheated 

• initialize  ZB5 , RGV,  IB,  RB,  V,  VO,  KK  and  index 
of  time  steps  k. 

Statements  90.0-90.2 — Here  the  time  step  DT  and  laser 
power  POW  are  set  equal  to  the  values  computed  in  subroutine 
TIME  and  the  elapsed  time  TTIME  is  adjusted  accordingly. 

Statements  90.3-90.5 — Subroutines  CWATER,  BA,  HTDEP 
are  called  prior  to  the  first  time  step  and  following  time 
steps  during  which  water  has  been  lost  (IMAX  > 0)  or  damage 
has  occurred  (LMI  _>  II)  . Subroutines  CWATER  and  BA  revise 
the  thermal  properties  and  matrix  elements  for  water  losses , 
respectively.  Subroutine  HTDEP  alters  deposition  rates 
when  irreversible  damage  occurs.  The  latter  is  accomplished 
by  replacing  the  absorption  coefficients  at  the  particular 
grid  points  with  the  coefficients  for  damaged  tissue. 

Statements  106. 4- 119.0- -These  statements  have  to  do 
with  printing  temperature  rises.  Temperatures  are  printed 
at  intermediate  time  steps  only  when  the  following  three 
conditions  are  satisfied 

• XP(K)  equals  1.1.  Otherwise  the  temperatures  are 
too  approximate  for  printing  in  that  either  a 
mean  power  is  being  used  to  represent  a group  of 
pulses  or  the  pulse  following  the  mean  power. 

e time  TTIME  is  between  a specified  pair  of  times 
TIMEl(KK)  and  TIME2(KK).  This  provision  is  pro- 
vided to  control  periods  over  which  printouts 
are  desired.  If  one  wished  printouts  at  all 
times,  set  KX-1;  TIMEl(l)-0;  and  TIME2(1)  to  a 
value  several  times  larger  than  the  duration  of 
the  exposure.  Extremely  large  values  will  cause 
no  problem. 
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• ITYPEX  must  be  greater  or  equal  to  the  specified 
value  ITYPE.  Here  printouts  will  be  provided  at 
every  time  step  if  ITYPE  is  set  equal  to  1,  at 
every  other  time  step  of  ITYPE  equals  2,  etc. 

Temperatures  and  damage  are  always  printed  following  the 
last  time  step. 

Statement  119.1--This  statement  stores  the  peak  tem- 
perature  atCr^,  zi)  in  2B5.  This  temperature  is  used  to 
predict  fifth-degree  bums  following  completion  of  the 
temperature /damage  calculations. 

Statements  119 . 2- 119 . 3 — Here  the  time  index  k is  in- 
creased  by  1,  and  the  calculations  are  continued  provided 
k does  not  exceed  the  total  number  of  time  steps  KT.  In 
this  regard,  the  KT  time  steps  include  NTX  time  steps 
following  completion  of  the  exposure.  This  provision  is 
made  to  account  for  the  fact  that  damage  continues  after 
the  last  pulse.  For  this  purpose,  NTX  should  be  assigned 
a reasonably  large  number,  but  not  so  large  that  KT  exceeds 
the  maximum  dimension  MK  allowed  in  dimensioning  arrays . 

A value  such  as  20  should  suffice,  Once  damage  becomes 
insignificant,  subroutine  DAMAGE  aborts  additional  time 
steps. 

Statements  119. 4- 124.0 — At  the  end  of  the  calculations 
the  cumulative  damage  is  printed  for  each  of  the  grid  points . 

Statements  124.1-132.0 — Here  the  peak  temperature  RB 
of  any  superheated  water  is  used  to  calculate  the  maximum 
internal  pressure.  The  resultant  pressure  represents  an 
upper  limit  in  that  it  does  not  allow  for  tissue  deforma- 
tion, i.e. , water  remains  as  water  without  expansion. 

Statements  133. 1-154.0- -Here  the  radial  and  axial 
extent  of  irreversible  damage  is  determined  by  interpola- 
tion using  the  largest  radius  rjDR  and  depth  zjdz  of 
irreversible  damage  found  for  any  of  the  grid  points. 

The  maximum  depth  is  assumed  to  be  on  the  axis  while  the 
maximum  radius  is  assumed  to  be  at  the  shallowest  depth 
ZII  °f  "live”  tissue.  Only  under  very  unusual  heating 
conditions  would  these  assumption^  not  be  true,  i.e.,  beam 
profiles  with  their  greatest  intensities  far  removed  from 
the  axis.  If  one  encounters  such  conditions,  one  considers 
all  i,  j values. 

In  that  the  same  scheme  is  used  to  interpolate  thres- 
hold damage  for  both  coordinates.,  we  shall  illustrate  the 
procedure  only  for  r.  Damage  D is  interpolated  assuming 
it  decreases  exponentially  with  r in  the  following  fashion. 


(C-4) 


D “ DJDR  exp“  (X1  ^X2”rJDR^ 

Substituting  Djdr+1  for  D and  rjDR+i  for  r,  and  solving  for 
the  constant  XI  yields 

XI  = 'ln(DJDR+l/DJDR)/(rJDR+l"rJDR^  (C'5) 

Setting  D equal  to  1 in  equation  C-4  and  solving  for  the 
desired  radius  X2  yields 

X2  = rJDR  + ln(DJDR)/Xl  (C-6) 

Statements  160 . 0-162 . 0 — These  statements  determine  the 
degree  of  burn  LDB . First  - , second- , and  third-degree  bums 
are  based  upon  the  level  of  damage  ft  (see  equation  11)  at 
rl»  zIi>  Fourth-degree  bums  are  indicated  if  a steam  blis- 
ter forms  (JW>1).  JW  indicates  radial  extent  rju  of  a blister 
and  is  evaluated  at  statement  14.1  of  subroutine  DAMAGE. 
Fifth-degree  bums  are  predicted  if  the  peak  temperature  at 
(ri , 2 ])  exceeds  DB5. 

Subroutine  TIME 

This  subroutine  commutes  and  stores  the  time  steps 
DTX(k) . Relatively  smail  time  steps  are  used  immediately 
following  the  start  and  end  of  each  pulse.  Subsequent  time 
steps  are  sequentially  Increased  as  long  as  the  laser  power 
remains  constant  (including  zero) . These  periods  corres- 
pond to  the  interpulse  and  intrapulse  times. 

In  addition  the  code  evaluates  the  array  XP(k)  which 
accounts  for  pulses  replaced  by  mean  power.  It  represents 
a weight  factor  which  is  other  than  zero  only  for  time 
steps  corresponding  to  individual  pulses  yielding  accurate 
temperature  predictions.  When  all  the  pulses  are  treated 
individually,  XP(k)  * 1 for  all  time  steps,  i.e.,  k ■ 1 to 
KT.  When  pulses  have  been  eliminated,  XP(k)  will  assume 
values  greater  than  1 to  account  for  the  number  of  eliminated 
pulses.  XP(k)  values  are  greater  than  zero  only  for  those 
time  steps  DTX(k)  yielding  accurate  temperature  predictions. 


Initially  the  arrays  POWER(k)  and  XF(k)  are  set  equal 
to  their  most  common  values,  i.e.,  0 and  1,  respectively. 
Subsequently,  some  of  these  values  are  revised  in  the  sub- 
routine. 


Statements  2 . 1-2 . 7--This  portion  of  the  code  assesses 
the  minimum  time  step  DTO  needed  for  accurate  pred'ctions 
of  temperature.  The  criterion  is  of  the  same  form  as  used 
with  explicit- finite  differences.  The  factor  ZR  is  an 
input  parameter  and  should  be  approximately  0.5. 

Statements  2 .12-30 . 1--This  portion  of  the  code  computes 
the  time  steps  fitx(k)  and  associated  arrays  POWER(k)  and 
XP(k)  for  single-pulse  exposures. 

To  ensure  accurate  damage  calculations , a minimum  of 
NTP  time  steps  are  used  to  embrace  the  pulse  duration  DPULSE. 
Statements  2.14-2.17  use  a series  of  uniform  time  steps  DTI 
if  DTI  is  less  than  or  equal  to  DTO.  Otherwise  the  follow- 
ing series  of  increasing  time  step  is  considered. 

DTO(l+XC+(XC)2+  ...  (XC)L1-1)  - DTO  (C-7) 

where  the  number  of  terms  LI  is  chosen  so  that 

DTO(XC)L1*’1S  DTI  (C-8) 

This  series  is  used  provided  that  it  does  not  exceed  DPULSE. 
Any  residual  time  is  subdivided  into  equal  time  steps  less 
than  DTO.  If  the  series  exceeds  DPULSE  then  the  factor  R3 
is  determined  such  that 

DTO(l+R3+(R3)2  ...  (RS)11"1)  -DPULSE  (C-9) 

This  is  accomplished  by  rewriting  equation  C-9  as  follows 

R3  - exp (ln(DPULS|^-~-^  + 1)/L1)  (C-10) 

Trial  values  (XI)  are  then  substituted  for  R3  on  the  right- 
hand  side  of  equation  C-10  and  solved  for  R3.  If  R3  does 
not  agree  with  XI,  XI  is  set  equal  to  R3  and  the  process 
repeated  until  they  do  agree.  Usually  only  a few  trials 
are  needed. 

During  each  time  step  within  DPULSE,  POWER(k)  is  set 
equal  to  the  actual  laser  power  POWX.- 

Statements  29.0-30.1  compute  the  NTX  time  steps  follow- 
ing the  pulse.  The  first  of  these  time  steps  is  DTO  followed 
by  (XC)DTO,  (XC)zDT0,  etc.  Then  the  total  number  of  time 
steps  k is  stored  KT. 
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Statements  31 . 0-50 .0- -This  portion  of  the  subroutine 
computes  the  arrays  I)TX(k)  , POWER(k)  , and  XP(k)  for  non- 
coded  pulse  trains.  Statements  31.9  through  38.2  deal  with 
individual  pulses  while  statements  38.3  through  48.1  deal 
with  the  mean  laser  power  XX3  used  to  represent  various 
groups  of  pulses.  The  array  NPG(L)  equals  1 for  individual 
pulses.  When  a group  of  pulses  is  replaced  by  the  mean 
power,  NPG(L)  equals  the  number  of  pulses  in  the  group. 

Following  each  pulse  or  group  of  pulses,  the  time  step 
DTO  is  increased  by  the  specified  factor  ZZ.  Usually  one 
should  set  ZZ  - 1.  To  conserve  on  computation  time,  try 
ZZ  values  several  percent  larger  than  1.  Reduce  ZZ  closer 
to  1 if  any  temperature  oscillations  occur. 

Statements  31.9  and  31.10  compute  the  number  of  time 
steps  NP  needed  to  embrace  the  pulse.  The  number  of  time 
steps  is  never  allowed  to  fall  below  2.  Immediately  there- 
after the  time  steps  DTX(k)  are  set  equal  to  the  constant 
value  XXI,  and  POWER(k)  and  XP(k)  set  equal  to  POWX  and 
NPR(L) , respectively.  The  array  NPR(L)  equals  the  number 
of  pulses  represented  by  individual  pulses , and  equals  1 
when  all  pulses  are  treated  individually. 

Statements  32.3  through  38.0  compute  time  steps  between 
pulses.  Here  XX4  represents  the  first  of  two  expanded  time 
steps,  XX4  and  XX4(XC) , needed  to  embrace  the  interpulr^ 
time  XX2.  These  time  steps  are  used  if  XX4  is  less  than 
or  equal  to  DTO.  Otherwise,  the  number  LI  of  expanded  time 
steps  needed  to  exceed  XX2  is  evaluated  at  statement  36.0. 
This  is  achieved  by  solving  equation  C-ll  for  LI  and  drop- 
ping the  decimal. 

- XX2  (C-ll) 

Then  the  smallest  time  step  DT2  is  evaluated  by  replacing 
DTO  of  equation  C-ll  with  DT2  and  solving  for  DT2.  The 
result  is  the  following  LI  time  steps: 

DT2,  DT2 (XC) , DT2(XC)2  •••  DT2(XC)L1~1  (C-12) 

The  array  DTX(k)  is  set  equal  to  these  time  steps  between 
statements  36.2  and  38.0. 

Statements  from  38.1  through  48.1  deal  with  groups  of 
pulses . The  duration  X2  of  the  group  of  pulses  is  evaluated 
at  statement  40.0.  If  X2  is  less  than  DTO,  one  time  step 
is  used.  Otherwise,  the  time  steps  are  computed  between 
statements  46.0  and  48,0  using  the  same  procedure  of  state- 
ments 36.0  and  38.0. 
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Statements  50 . 1- 54. 1--This  portion  of  the  code  computes 
NTX  time  steps  following  the  end  of  the  pulse  train.  Tnese 
steps  start  with  DTO  followed  by  DTO(XC) , DTO(XC)  , etc. 

Statements  70.0-100.0 — This  portion  of  the  subroutine 
computes  the  time  steps  for  coded  pulses . The  procedure  is 
identical  to  that  used  for  single  pulses  between  statements 
2.12  and  28.0.  The  only  difference  is  in  the  pulse  durations 
and  number  of  pulses. 

Statements  100 . 1 , 110 , 1- -Here  NTX  time  steps  are  added 
onto  the  end  of  the  coded  pulses  in  the  same  fashion  used 
with  noncoded  pulses . 

St atement s 120.0-12 1.1 — If  the  total  number  of  time 
steps  exceeds  the  number  Mt  allocated  in  dimensioning  of 
arrays,  the  subroutine  will  indicate  this  fact  and  stop 
further  computations.  MK  must  be  £200. 

Subroutine  GRID 

This  subroutine  locates  the  grid  points  based  upon  the 

e values  selected  for  Nl,  N,  and  M 

e Ml,  DR,  DZ,  RN,  and  ZM  values  computed  in  the 
main  program 

• diameter  SHF  and  depth  DHF  of  hair  follicle 

, 

A hair  follicle  is  considered  only  if  it  lies  at  a depth  less 
than  the  maximum  depth  ZM  (DHF  < ZM)  . A typical  grid  system 
without  a hair  follicle  is  shown  in  Figure  A-l  presented  on 
page  61. 

Statements  to  10. 3--Following  the  last  uniform  DR,  the 
radial  Increments  are  expanded  by  the  factor  R2  chosen  so 
CK  increments  exist  between  (RN-CP)  and  RN.  This  requires 
that 


" CP  (C-13) 

R2  is  determined  by  rewriting  equation  C-13  as  follows 

R2  - exp(ln(ff»m^  + 1)/CK)  (C-14) 

This  equation  is  solved  for  R2  in  the  same  fashion  described 
in  soling  equation  C-10. 
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Statements  13 . 0-15 . 0- -Here  the  first  Nl+1  - N4  grid 
points  R(j)  are  determined  for  the  uniform  portion  of  the 
radial  grid.  When  a hair  follicle  is  present,  the  first 
increment  equals  half  the  diameter  SHF  of  the  follicle. 

Tue  next  Nl-1  increments  DR  are  uniform. 

Statements  15.1-16.0 — Here  the  factor  R2  is  used  to 
evaluate  the  grid  points  R(j)  over  the  expanded  portion  of 
the  radial  grid. 

Statements  16.1-18.0 — Here  the  first  Ml+1  ■ M4  grid 
points' 2(1)  are  computed  over  the  uniform  portion  of  the 
axial  grid. 

Statements  18.5-26. 0 — These  statements  assume  no  hair 
follicle.  They  evaluate  the  grid  points  Z(i)  over  the 
expanded  portion  of  the  axial  grid.  The  technique  is  the 
same  as  that  used  for  the  radial  grid. 

Statement  30 . 0 — To  accommodate  a hair  follicle,  it  is 
necessary  to  commence  to  contract  the  axial  grid  points 
early  in  the  expansion  phase  to  achieve  an  increment  having 
dimensions  identical  to  the  follicle.  Thereafter  the 
increments  are  expanded  to  ZM. 

Statement  30.0  partitions  the  M-Ml  increments  for  the 
expansion  phases. 

Statements  30. 1-36.0- -Here  the  first  LX  increments 
following  the  uniform  grid  are  expanded  to  a depth  roughly 
midway  between  the  base  of  the  epidermis  and  the  follicle. 

Statements  36.1-46.0 — The  next  LX-1  increments  are 
contracted  to  the  follicle,  with  the  last  increment  equal 
to  the  follicle  diameter  SHF.  The  follicle  is  centered 
at  Z(L2).  One  additional  increment,  Az  - SHF,  is  provided 
beneath  the  follicle. 

Statements  47.0-62.0 — Finally  the  remaining  M-L2-1 
increments  are  expanded  to  ZM. 

Statements  70. 0~ 72.0 — This  portion  of  the  subroutine 
assesses  the  index  tW  associated  with  Z(IW)  nearest  ZBL. 

ZBL  represents  the  depth  at  which  blisters  form  and  should 
be  set  equal  to  the  thickness  of  the  epidermis  in  inputing 
data. 
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Subroutine  PROF 


This  subroutine  computes  the  profile  HR(j)  of  the  laser 
beam  in  terms  of  the  intensity  of  the  incoming  beam.  Three 
radially  symmetric  profiles  are  considered,  namely 

• Irregular  pro files --whose  shape  is  described  on  a 
point-by-point  basis  using  the  arrays  PX(L)  and 
RX(L) 

• Gaussian  profiles — whose  shape  is  described  in 
terms  of  intensity  CUT  for  normalized  profiles 
at  radius  RIM 

• Uniform  profiles — which  have  a constant  intensity 
over  a radius  RUNIF  and  zero  intensity  thereafter 

The  radius  RII  of  the  grid  work  is  selected  in  the  main  pro- 
gram so  that  it  extends  well  beyond  the  profile. 

Input  data  describe  the  shape  of  the  profiles . Inten- 
sities are  adjusted  to  yield  1 watt  of  beam  power  using  the 
factor  QP.  Actual  beam  powers  are  introduced  in  subroutine 
TEMP. 


Statements  11. 6-18 .1- -This  portion  of  the  subroutine 
computes  the  factor  QP  for  irregular  profiles.  The  profile 
is  linearly  interpolated  between  points  using 

P(r)  « PX(L-l)  + rxTiJ  (PX(L> -PX(L~1) ) (C-15) 

where  p(r)  represents  the  value  of  PX  at  r. 

The  term  X5  in  the  listing  represents  the  integral  of 
p(r)  with  respect  to  radial  area  over  the  entire  profile. 

X5  is  determined  by  integrating  between  successive  pairs  of 
points  RX(L-l)  and  RX(L)  as  follows 

RX(L) 

2-trrdr  (C-16) 

RX(L-1) 

Results  are  stored  in  Xi>,  QP  is  then  computed  allowing  for 
energy  losses  due  to  hairs  and  reflection. 
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Statements  18. 2-23 .0- -Here  the  irregular  profile  is 
interpolated  at  radial  increments  R1NT  starting  at  r « 0 
using  equation  C-15.  Results  are  stored  in  FX(L)  , 

Statements  23 . 1-34 . 0--This  portion  of  the  subroutine 
computes  the  radial  area  FA(L)  and  power  FP(L)  between 
r = 0 and  r = (L-.5)RINT.  Small  values  are  used  for  RINT, 
consistent  with  accurate  integration. 

Statements  34 . 1-35 . 0--Here  the  values  of  FA  and  FP 
are  determined  at  radii  midway  between  successive  radial 
grid  points  R(j).  Increments  of  FP  are  then  divided  by 
increments  of  FA  and  multiplied  by  QP  to  arrive  at  HR(j) 
for  irregular  profiles. 

Statements  44.0-47.0 — Gaussian  profiles  have  the  fol- 
lowing shape 

exp- (2r2/ (SIGMA)2)  (C-17) 

This  expression  is  normalized  sp  that  it  equals  1 at  r * 0. 
Input  data  indicate  its  value,  CUT,  at  the  specified  radius 
RIM.  If  one  chooses  a value  of  1/e2  for  CUT  then  r *=  SIGMA, 

Setting  the  above  expression  equal  to  CUT  and  replac- 
ing r with  RIM  yields 

SIGMA  - RIM  V - 2 / In  (CUT)  (C-18) 

Multiplying  equation  C-17  by  2 tit  and  integrating  over 
all  r yields  tt  (SIGMA)  2/2 . This  result  is  then  used  to 
compute  the  OP  value  given  by  statement  46.1. 

Statements  59  0-72 . 0--Uniform  profiles  are  considered 
to  be  of  unit  magnitude,  and  to  extend  to  the  specified 
radius  RUNIF.  The  integral  of  such  profiles  with  respect 
to  radial  area  is  simply  tt  (RUNIF) 2 and  yields  the  QP  value 
cited  at  statement  59.0. 

In  that  r ® RUNIF  lies  midway  between  R(N1)  and  R(N1+1) , 
only  the  first  N1  HR(j)  values  are  set  equal  to  QP.  All 
ocher  HR(j)  values,  with  j = N+l.  ...  N3  are  equal  to  0. 

Subroutine  CWATER 

This  subroutine  assigns  values  for  the  blood  flows, 
thermal  conductivities  and  volumetric  heat  capacities  to 
the  grid  points.  Blood  flows  remain  constant  with  respect 
to  time.  Thermal  properties  are  expressed  in  terms  of 
water  content  and  hence  change  with  water  loss. 
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Statements  6 . 0-8 . 2--Blood  flows  BL(L1)  vary  with  depth 
by  assigning  constant  values  over  tissue  layers  of  thick- 
nesses of  TB(L1).  Blood  flows  are  assigned  at  each  of  the 
depths  Z(i)  according  to  the  layer  in  which  Z(i)  resides. 

Statements  3 , 3-26 . 0--This  section  assigns  values  for 
the  water  content  WW(i) , density  DD(i) , non -water  consti- 
tuents SS(i),  and  specific  heat  CH(i)  at  the  various  depths 
Z(i). 


Sweat  is  considered  only  if  it  has  a depth  greater  than 
the  arbitrarily  small  value  of  0.0001  cm.  Water  content 
and  density  are  considered  constant  across  the  dermis  and 
within  subcutaneous  tissues.  If  sweat  is  absent,  water 
content  and  density  vary  linearly  across  the  epidermis 
starting  with  values  W1  and  Dl,  respectively,  at  its  outer 
surface,  and  ending  with  values  W2  and  D2  at  its  base. 

When  sweat  is  present  the  values  W1  and  Dl  are  replaced  by 
those  for  sweat,  namely  WO  and  DO. 

Equations  used  to  calculate  specific  heat  and  the 
thermal  conductivities  are  presented  in  the  section  "Thermal 
Properties  of  Skin." 

Statements  26.3-33.0 — This  portion  of  the  subroutine 
assigns  values  for  water  content,  heat  capacity,  and  thermal 
conductivity  to  each  of  the  grid  points. 

Statements  40. 0-44. 0--Whenever  water  losses  occur, 
the  water  content  WATER(i.j)  is  adjusted  in  subroutine  TEMP, 
Then  this  portion  of  the  subroutine  is  used  to  revise  the 
heat  capacities  and  thermal  conductivities  at  the  affected 
grid  points,  i“l,  IMAX  and  j = 1 , JMAX. 

Subroutine  BA 

Subroutine  BA  computes  the  matrix  elements  Al(i,j) , 
A2(i,j),  A3(i,j),  Bl(i, j) , B2(i,j)  andB3(i,j).  These 
matrix  elements  are  described  in  Appendix  A. 

Statements  to  11.0--This  section  computes  the  arrays 
presented  by  equations  A- 26  to  A-29  and  A-31  to  A-34  . 

Statements  12 , 0-26 .0--The  matrix  elements  are  evaluated 
for  all  grid  points  except  for  those  incurring  no  heating, 
points  with  i * M3  or  j -N3.  Thereafter , the  matrix  elements 
are  revised  immediately  after  any  water  is  lost.  These 
revisions  pertain  to  elements  associated  with  grid  points 
contained  within  R(JMAX)  and  Z(IMAX) , The  indices  JMAX 
and  IMAX  are  determined  in  subroutine  TEMP . 
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Subroutine  HTDEP 


Subroutine  HTDEP  computes  the  rates  of  energy  deposition 
S(i,j)  per  unit  volume  of  tissue  at  each  of  the  grid  points 
(Z(i),  R(j)).  This  is  accomplished  by  computing  the  radiant 
intensities  at  depths  ZH(i)  midway  between  the  grid  points 
and  using  the  intensity  differences  to  determine  the  rates 
of  energy  deposition. 

Statements  5.1-20.0 — First,  determinations  are  made  of 
the  radiant  intensities  at  each  of  the  depths  ZE(L)  at  which 
the  absorption  coefficients  undergo  change.  Here  we  start 
with  a unit  intensity  (IE(1)  =1)  at  the  surface  (ZE(1)  - 0) 
and  compute  the  intensities  IE(L)  at  each  of  the  depths 
ZE(L).  The  depths  ZE(L)  of  interest  are 

L=1 

ZE (L)  - ^ TH<*)  (C-19) 

£=1 

The  intensities  at  these  depths  are 
IE(1)  - 1 

IE(2)  - IE(l)exp(-ABS(l)-TH(l)) 


IE(LZ+1)  = IE(LZ)exp (-ABS(LZ) * TH(LZ) ) (C-20) 

These  computations  are  conducted  between  statements  5.1  and 

12.0. 


The  next  step  is  to  use  the  above  intensities  IE(L)  to 
determine  the  intensities  IZ(i)  at  the  depth  ZH(i) . At  the 
surface,  IZ(1)  equals  1.  Otherwise 

IZ(i+l)  = IE(L) exp (-ABS (L) (ZH(i) -ZE(L) ) (C-21) 

where  the  index  L is  such  that 

ZE(L)  < ZH(i)  < ZE(L+1)  (C-22) 

Heat  deposition  rates  are  computed  between  statements 
16.3  and  20.0.  This  computation  is  accomplished  by  dividing 
the  difference  of  successive  pairs  of  IZ(i)  by  the  distance 
between  the  corresponding  depths  ZH(i) , and  multiplying  by 
HR(j)  . 
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Statements  20,2-22.1 — This  portion  of  the  subroutine 
is  entered  only  if  a hair  follicle  is  considered.  The 
follicle  is  at  depth  7(IHF)  between  radii  r = 0 and  r = R(2)  , 
and  is  considered  opaque. 

Statements  32 .0-42 , 0- -Whenever  irreversible  damage 
occurs^  the  code  adjusts  the  rates  of  heat  deposition  asso- 
ciated with  grid  points  within  the  damage  radius  R(LNJ) . 

Here  LXX  represents  the  largest  index  to  be  considered. 
It  equals  the  maximum  i index  associated  with  heat  deposition 
and  damage.  First,  all  S(i,j)  of  concern  are  initialized  to 
zero. 


Of  interest  are  grid  points  within  the  maximum  depth 
Z(LMI)  of  damage.  In  that  some  of  the  tissues  may  be  un- 
damaged, it  is  necessary  to  allow  for  both  damaged  and 
undamaged  tissues.  From  statements  34.1  to  36.0  the  radiant 
intensity  is  computed  for  each  depth  ZH(i)  by  multiplying 
the  intensity  at  the  prior  depth  ZH(i-l)  by  one  of  the  fol- 
lowing factors : - 

damaged  tissues:  exp- [ (ABSC) (ZH(i) -ZH(i-l) ) ] (C-23) 

undamaged  tissues:  IZ(i) /IZ(i-l)  (C-24) 

The  remaining  computations  are  similar  to  that  described  for 
statement  20.0. 

Statements  36.1  through  37. Q concern  undamaged 
tissues  and  follow  the  same  procedure  described  above. 

Statements  42 . 1-44. 1--Here  the  energy  is  entirely  ab- 
sorbed  by  the  hair  follicle,  so  no  energy  is  deposited 
directly  below  the  follicle. 

Subroutine  TEMP 

This  subroutine  performs  the  following  functions : 

• computes  transient  temperatures  allowing  for 
steam  generation 

• adjusts  water  content  WATER(i,j)  for  any  water 
loss 

• computes  maximum  temperatures  at  (R(l) , Z(l)), 
of  hair  follicle,  and  of  all  grid  points 
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If  mean  laser  powers  are  used  and  boiling  commences,  this 
subroutine  treats  remaining  pulses  individually  by  reeval- 
uating the  arrays  DTX(k) , POWER (k) , and  XP(k)  for  future 
time  steps  k. 

Statements  to  2 . 3 — On  each  entry  of  the  subroutine, 

IMAX  is  set  equal  to  zero  to  account  for  the  fact  that 
boiling  may  cease  between  pulses  and  certainly  after  the 
exposure.  Remaining  statements  in  this  section  initialize 
various  arrays  and  parameters . 

Statements  3.0-4. 1--The  previous  temperatures  V(i,j) 
are  preserved  VO (I, j)  for  reuse  in  successively  approximat- 
ing the  rates  of  heat  loss  in  transforming  water  into  steam. 
After  each  trial  the  resultant  V values  are  returned  to 
VO.  Here  KW  (number  of  trials)  is  initialized  to  0. 

Statements  9.0-48.7,  50 . 0--This  portion  of  the  sub- 
rout ine-computeF-tHe— temperatures  using  half  time  steps 
DT/2  for  COLUMN  and  half  time  steps  DT/2  for  ROW.  Except 
for  indices , the  COLUMN  computations  are  of  identical  form 
as  those  for  ROW  discussed  in  Appendix  A.  Statements  9.1- 
44.0  for  COLUMN  and  45.3-48.0  for  ROW  evaluate  the  terms 
D,  E,  F,  and  G of  Appendix  A.  In  this  subroutine  the 
terms  DXC  and  DXR  correspond  with  D;  CXC  and  CXR  with  E; 

FXC  and  FXR  with  F;  and  SUM  with  G.  Rates  of  heat  deposi- 
tion are  described  by  P0WS(i,j)  and  rates  of  heat  losses 
due  to  steam  formation  by  SW(i,j). 

Statements  44.1-45.0  for  COLUMN,  and  statements  48.0- 
48.5  plus  50.0  for  ROW  evaluate  the  temperatures  using  the 
above  arrays . The  equations  for  ROW  are  those  of  equation 
A- 39  of  Appendix  A. 

Statements  48.6-4811,  50.1,  50.2 — This  portion  of  the 
code  evaluates  the  i and  j indices  iMAX  and  JM(i)  describing 
the  region  over  which  water  is  lost.  These  evaluations  are 
made  with  all  SW(i,j)  values  set  equal  to  zero.  Tempera- 
ture computations  are  completed  if  none  of  the  grid  points 
(i  = 1 to  IP)  with  available  water  exceeds  the  temperature 
of  boiling  water.  Otherwise,  KW  is  increased  to  1 and  a 
trial  and  error  method  is  used  to  determine  the  SW(i,j) 
values  needed  to  reduce  the  temperatures  to  that  of  boiling. 

Statements  50. 3-57 . 0--Two  techniques  are  used  to  deter- 
mine SW(i,j)  by  successive  approximations.  These  techniques 
will  be  labeled  1 and  2.  Technique  1 perturbs  the  previous 
SW(i,j)  values  as  follows 

SW(i,j)  +SW(i,j)  + ZW(KW)  (V(i, j)  - XW)VSH(i,j)/DT.  (C-25) 
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Here  the  array  ZW(KW)  is  inputed  by  the  user  and  should  have 
values  of  about  1 to  1.5.  The  most  recent  temperatures 
are  V while  the  previous  temperatures  are  VS.  This  technique 
works  best  when 

1)  most  of  the  absorbed  heat  remains  in  the  parti- 
cular grid  increments  during  the  time  step 

2)  SW(i,j)  corrections  are  relatively  small 

Statement  50.8  determines  whether  or  not  condition  1 is  true. 
If  it  is  true,  JSW(i,j)  is  set  equal  to  1.  Otherwise,  it 
is  equal  to  0.  Condition  2 is  judged  by  comparing  the  most 
recent  temperature  changes  with  the  arbitrarily  small  tem- 
perature difference  of  1°C.  Technique  1 always  is  called  for 
the  first  of  the  NW  trials  and  for  trials  KW  = IKW  to  NW. 

The  second  technique  alters  previous  SW(i,j)  values  by 
large  amounts  and  is  important  in  rapidly  achieving  SW 
values  of  the  correct  magnitude, but  it  is  not  as  good  as 
technique  1 in  making  small  refinements.  Technique  2 in- 
volves using  the  previous  SW(i,j)  correction  divided  by  the 
resulting  V(i,j)  changes.  The  ratio  is  multiplied  by  the 
desired  temperature  change  XW-V(i,j)  and  the  factor  ZW(KW) 
to  arrive  at  subsequent  changes  of  SW(i,j).  If  the  result- 
ing SW  correction  is  less  than  that  described  by  equation 
C-25,  equation  C-25  is  used  in  that  it  provides  more  accurate 
estimates  whenever  the  revisions  are  small. 

Statements  57.1-57.2 — These  statements  prevent  SW  values 
from  becoming  negative  or  exceeding  values  allowed  by  the 
amount  of  available  water. 

Statements  57.3-62.1 — Here  the  change  in  SW(i,j)  is 
stored  in  ZSW(i,j)  and  the  most  recent  temperatures  V(i,j) 
are  stored  in  VS(i,j). 

Statements  60.4-62.1  reset  the  V(i,j)  values  back  to 
their  original  values  before  directing  the  code  to  statement 
9 . 0 for  the  next  of  the  NW  :rials . 

Statements  63.0-70. 1- -This  portion  of  the  subroutine 
is  entered  after  completing  the  NW  trials . It  performs  the 
following  functions 

• subtracts  water  losses  from  WATER(i,j) 

• reinitializes  the  arrays  SW(i,j),  JSW(i,j), 
and  JM(i) 

• determines  the  maximum  radius  R(JMAX)  over 
which  water  has  been  lost. 


103 


The  next  section  is  entered  if  some  of  the  pulses  have  been 
grouped  together  to  conserve  on  computational  time. 


Statements  70 . 2-84 . 2--It  is  not  valid  to  treat  pulses 
using  a mean  power  once  steam  commences  to  be  generated. 

In  such  situations  it  is  necessary  to  treat  the  remaining 
pulses  individually.  To  accomplish  this,  the  subroutine 
recomputes  the  arrays  DTX(k) , POWER (k) , and  XP(k)  for 
individual  pulses.  The  method  is  identical  to  that  described 
in  subroutine  TIME  for  noncoded  pulse  trains. 


Statements  70.3-74.0  determined  the 


• number  of  pulses  that  have  been  treated,  LI 

• number  of  pulses  remaining 

• minimum  time  step  DTO 

• initialize  POWER(k.)  and  XP(k)  for  remaining 
pulses 

• evaluate  the  parameters  XX2 , XX4,  XX5 , and  XX6 
used  in  subroutine  TIME 

• sets  the  variable  time  index  LK  equal  to  k 

• directs  the  subroutine  to  statement  82  once  all 
KP  remaining  pulses  have  been  treated 


Statements  74.1-78.1  compute  the  time  steps  between 
pulses.  These  statements  are  identical  to  statements  32.1- 
38.2  of  subroutine  TIME  except  for  omitting  the  array  XP(k) , 
and  the  use  of  KO  and  LK  for  k and  L3,  respectively. 


Statements  79.0-80.1  evaluate  time  steps  during  pulses. 
The  same  procedure  is  used  as  described  for  statements  31.6- 
32.1  of  subroutine  TIME.  The  array  NPG(L)  is  emitted  in 
that  all  remaining  pulses  are  treated  indi^-h’.aally . 


Statement  80.2  reduces  the  remainir 
treated  by  1.  Then  the  subroutine  ohec 
cient  storage  is  available  for  the  n* 
represents  the  number  of  time  steps 
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Statements  82.0-84.1  compute  the  time  steps  following 
the  last  pulse.  The  procedure  is  identical  to  that  per- 
formed in  time.  NGX  is  set  to  zero  to  alert  the  code  to  the 
fact  that  the  pulses  are  being  treated  individually  and  to 
prevent  reentry  of  this  portion  of  the  subroutine. 

Statements  90.0-92. 1- -This  section  is  used  following 
each  time  step.  It  sets  RGV  to  the  highest  temperature 
exceeding  RGV.  Also  it  searches  the  region  in  which  super- 
heated water  may  result  for  peak  temperature.  The  peak 
temperature  and  associated  depth  index  i are  stored  in  RB 
and  IB,  respectively.  Final?.y,  the  peak  temperature  of 
any  hair  follicle  is  stored  in  VHF. 

Subroutine  DAMAGE 

This  subroutine  performs  the  following  funct’ons: 

• evaluates  thermal  damage  D(i,j)  at  each  of  the 
grid  points  as  well  as^the  radial  R(LNJ)  *nd 
axial  Z(LMI)  extent  of  irreversible  damage 

• revises  matrix  elements  Al,  A2 , and  A3  if  a 
blister  forms 

• aborts  future  time  steps  when  damage  becomes 
insignificant 

Statements  to  4.0--KTQ  represents  the  ind  .x.  k asso- 
ciated  with  the  last  time  step  associated  with  the  last 
pulse  and  it  is  used  to  abort  time  steps  following  the 
last  pulse  once  further  damage  becomes  insignificant. 

Statements  4. 7-6 . 4--Datnage  is  computed  only  if  the 
temperature  V exceeds  XD,  where  XD  is  the  lowest  tempera- 
ture at  which  damage  is  significant.  Damage  calculations 
are  also  aborted  if  XP(k)  is  not  an  integer  value  greater 
than  0.  The  index  LL  equals  1 when  pulses  remain  to  be 
treated.  This  index  prevents  damage  calculations  from 
being  aborted  until  the  laser  exposure  is  completed. 

Statements  6 . 6-12 . 0--Here  the  indices  ID  and  JD  are 
evaluated!  these  indices  correspond  to  the  depths  Z(ID) 
and  R(JD)  over  which  damage  is  occurring. 

Statements  12. 1-14,1 — This  portion  of  the  subroutine 
compares  the  temperature  of  grid  points , nearest  to  the 
depth  ZBL  at  which  blisters  form,  with  the  temperature 
DTEMP  associated  with  blister  formation.  Matrix  elements 
Al,  A2,  and  A3  are  revised  if  DTEMP  is  achieved.  This  in- 
volves use  of  equations  A-24  and  A-25  presented  in  Appendix  A. 
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The  index  JW  is  used  to  avoid  recalculating  the  matrix 
elements . 

Statements  14.2-22.0 — Here  damage  is  calculated  only 
if  the  grid  points  lie  within  the  region  of  "live  tissue," 
at  Z(II)  or  below.  Damage  is  calculated  using  stepwise 
approximations  of  equation  11.  Incremental  damage  X3  is 
multiplied  by  the  number  of  pulses  XP(k)  being  represented. 

Statements  20.2  and  20.3  determine  the  i and  j indices 
(LMI  and  LNJ)  of  the  radius  R(LNJ)  and  depth  Z(LMI)  of 
irreversible  damage.  These  indices  are  used  to  alter  the 
absorption  coefficient  in  subroutine  HTDEP  whenever  irre- 
versible damage  occurs. 

Statement  22,1--This  statement  aborts  additional  cal- 
culations  when  damage  becomes  insignificant.  Five  time 
steps  are  allowed  at  the  end  of  the  last  pulse  before 
this  condition  is  exercised.  This  provision  is  provided 
in  that  the  incremental  damage  X3  of  statement  14.13  may 
be  small  as  a consequence  of  the  small  time  steps  used 
immediately  following  a pulse. 

CODE  DOCUMENTATION 

This  section  provides  compute  printouts  of  the  follow- 
ing: 


• nomenclature  used  in  the  code 

• code  listing 

• three  sample  computer  runs  with  input  data 
cards:  a single  pulse,  multiple  noncoded  pulses 
treated  in  groups,  and  coded  pulses. 

Property  data  used  in  the  sample  runs  are  identical  to  that 
used  in  the  section  "Pig  Experiments". 
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AMOUNT  OF  OAMASE  NEEDED  to  CAUSE  FIRST  0E6REE  BURN, 
DIMENSIONLESS 

AMOUNT  OF  DAMAGE  NEEDED  TO  CAUSE  SECOND  DEGREE  GURN, 
DIMENSIONLESS 

TEMPERATURE  ABOVE  MMICM  TISSUES  CMAR,C 

DENSITY  AT  2(!)*0M/GMS 

THICKNESS  OF  RDEAD*  EPIDERMAL  LAVER, CM 

DEPTH  OF  HAIR  FOLLICLE  LOCATED  ON  SEAM  AXIS, CM,  MILL 

CONSIDER  HAIR  FOLLICLE  ONLY  IF  OHF  IS  LESS  THAN  ZH, 

THEREFORE  TO  OMIT  MAXR  FOLLICLE  SET  OHF  TO  VERY  LARGE 

NUMBER  SUCH  AS  1400, 

PULSE  MXDTH  OF  NQN-CODCD  PULSES  (ALL  UNIFORM) ,*EC 

PULSE  WIDTH*  OF  CODED  PULSE*,  L»t  FOR  FIRST  PULSE,  L«S 

FOR  SECOND  PULSE, ETC. , MERE  APULtESF  MAY  HAVE  ANY 

POMER  FROM  0 AND  UP, SEC 

MINIMUM  RADIAL  INCREMENT, CM 

TIME  STEP  MHXCM  VARIES  MITM  INDEX  K,*EC 

TEMPERATURE  OF  SUPERHEATED  HATER  AT  mhICH  TISSUES  ARE 

ASSUMED  TO  SEPARATE, C 

MINIMUM  time  STEP, sec  ' 

TIME  INTERVALS  ASSOCIATED  MITH  LASER  POKERS  MOVER (K ) , 


SEC 

02  MINIMUM  AXIAL  INCREMENT, cm 

DO, ,01., OS,,  OENSIYY  OF  SWEAT, EPIDERMAL  SURFACE, DERM IS, AND  SUB- 
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c 

c 

c 

c 

c 


01. 

MU.) 

RRd) 

MU) 

H 

HU 
Hi  • 
HAI». 
MR  ( J ) 

MW, 

X 

IB 

xo 

XDU 

102. 

ltd) 


INF 

XX 

XXl.iXIt. 

III. 

IMAX 

IP 

IRHOR, 

ITYRE. 


ITYREX 

IW 

xitn 

J 

JO 

JDI. 

JD2. 

J J U t JJ2 • 
JH(X) 

JH  AX 
JM 


K 

KK 


CUTANEOUS  TISSUES. SM/CMJ 

TOTAL  RAOUL  ARIA  FROM  RAO  TO  U«*»>*RINT*CN* 

INTERNAL  OR  RX d)  WITH  RtIRfCT  TO  RAOUL  AR|a  RROh  RaO 
TO  U.-.»)ARXNT«CH« 

INTERROLATED  VALUE  OR  RX  AT  (LMIRRlNT.OIMlNSIONLCSa 

MEAT. TRANSFER  COEFFICIENT  AT  |X|N  SURFACE * C AL/CNi-BEC-C 

MEAT-TRANSFER  COEFFICIENT  AT  •URRACf(ORY)»CA|./eMl»aie-: 

HEAT-TRANSFER  COIRRXCXINT  AT  SURRACE(WCT) iCAL/CMI-BEC-C 

RR ACTION  OR  RAOXATXON  XNTZRCtRTED  IY  MAlRStOIMINBIONLEBa 

LASER  Bt AM  RRORXLI  At  FUNCTION  OR  RAOXUS  R(J)  ROK 

LASER  ROWER  OR  i MATT«CAl/CH»>ftie>MATT 

HI AT  TRANSFER  COIRRXCXINT  ACROSS  ITIAM  BLISTER* 

CAL/CH{-B8C-C 

XNOCX  OR  AXIAL  INCREMENTS 

X INDIA  OR  OtRTM  t C X > AT  WHICH  R1AW  RRtOauRia  OCCUR 
X INOIX  OR  HAXXHUH  OtRTM  X(X)  AT  WHICH  THERMAL  OAHAOf 
xa  OCCURRING*  DAMAGE  HAY  OR  HAY  NOT  01  REVERSIBLE 
MINIMUM  X VALUE  AT  WHICH  ARRAYS  V(I*J)*D(X«J)*S(I*J)* 

ARC  RRINTtO 

HAXXHUH  I, VALUE  AT  WHICH  ARRAY!  Vtl* J) *0( X ♦ J) *1(1 * J) * 

ARC  RRXNTED 

RR  ACTION  OR  HAM  INTENSITY  AT  DERTH  Ztd)  .WHERE 
icmwl  AT  OURRACC  CORRESRCnOXNO  TO  ZCnaO.tDIHENaiON- 

Ltsa 

I INDEX  OR  DERTH  Z C I HR ) OR  HAIR  ROLLICLI 
I INDEX  INOXCATINO  DtRTH  OR  RLtVKR  TISSUES*  TISIUII  LIVE 
RROH  Z(XI)  AND  alYOND 

HXNXMUM  ANO  MAXIMUM  1 INOXCIO  ROR  0 OR  1-0  RLOTO 
I INDEX  TO  ai  MARKED  on  a or  s»d  rlots 
MAXIMUM  I INOICt  AT  WHICH  WATER  MAS  REIN  LOST 
X XNOCX  INOXCATINO  0HALLOWE0T  DERTH  Z(XR)  AT  WHICH 
STEAM  I!  CONRINEO 

INOEX  INOXCATINO  SHARI  OR  LASER  RRORILE»WO  UNIFORM* 

•i  SAuaat an*  ii  irreoular 

INDEX  CONTROLLING  RREQUENCY  OR  RRXNTXN*  TEMPERATURES* 

ROR  ITVRCwi  TCMRERATUREO  WILL  BE  RRXNTED  ROR  EACH  TIME 
STER  BETWEEN  TIME  INTERVAL  RROH  TXNEl(KK)  TO  YtNC8(KK) * 
ROR  XTYRCrI  EVERY  OTHER  TIME  STIR, ETC. 

INDEX  USED  TO  CONTROL  RREOUINCY  OR  .RRXNTXN#  TCHRERATURCS 
X INDEX  OR  DERTH  Z<X>  NEAREST  DERTH  ZSL  AT  WHICH  TISSUES 

scraratc 

RRACTXON  OR  SEAM  INTENSITY  AT  VARIOUS  DlR?NS  ZM(I-l). 
WHERE  XZinwl.  AT  auRRACCtOIMINSIONLESS 

index  or  raoxal  increments 

J XNOCX  OR  MAXIMUM  RADIUS  R(J)  at  which  thermal  damase 
IS  OCCURRINO*  DAMAGE  MAY  OR  MAY  NOT  SE  REVERSIBLE 
MINIMUM  J VALUE  AT  WHICH  ARRAYS  V(X«J)*D(X*J)*S(X*>J)* 

ARE  RRXNTED 

MAXIMUM  J VALUE  AT  WHICH  ARRAYS  VCI * J) *DC! ♦ J) *S(! ♦ J) • 

ARC  RRXNTCO 

MINIMUM  ANO  maximum  J INDICES  ROR  S OR  J-O  RLOTS 
MAXIMUM  J INOEX  AT  WHICH  WATER  XS  LOST  ROR  X XNOXCES 
LESS  THAN  IR 

MAXIMUM  J INOEX  AT  WHICH  HATER  HAS  SEEN  LOST 
RADIAL  INOEX  ASSOCIATED  WITH  BLISTER  FORMATION*  w| 

XR  BLISTER  HAS  NOT  RORM|0«  OTHERWISE  BLISTER  EXTENTS 
TO  HADXAL  DISTANCE  R(JW) 

INOEX  OR  TIME  STIRS*  RANSI'S  RROH  t TO  KT 

INOEX  OR  SRCCIRXC  TIME  INTERVAL  TIMEI(KK)  TO  TINE2NM) 

TO  ASSESS  WHETHER  OR  NOT  TCHRERATURCS  ARE  TO  ||  PRINTED 
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KO 

WP 

ftT 

*TVPE. 

M. 

LASER. 

LB. 

LOW 

LI 

LMI«LNJ 


L«. 

L" 

LZ. 

LHL2.LS... 

N. 

MK. 

Ml* 

MS 

N» 

Mi. 

NS 

N6. 

NS*. 

NP 

NPtt(L). 

NPK<L) 

NPULSN, 

NTP. 

NT*. 


NW  . 

NON 

PONER(K) 
POM^'CIU. 
POtO , 

«'  J. 


NO 

N| 


INDfc*  ON  TINf  STEP 

INOEX  on  NUNBEN  ON  PULSES  REMAINING  to  be  tkeatco 
total  nu*»BER  ON  time  |TEN*  TO  BE  CONSIDERED  IN  CALCU- 
LATION* 

I »«Ot*  INDICATING  ■NETHER  OR  NOT  TO  PRINT  CARD*  NOR  2 OR 
3-0  PLOTS*«TtPE*l  NON  CaRDS»«TVPN*0  NOR  NO  CAROS 
NUMBER  ON  TIME  INTERVAL*  TIMEI(kk)  TO  TIMCZtKK)  DURING 
NHICM  TEMPERATURES  A*E  TO  BE  P»INTED«*KM  TO  KX 
INDEX  INDICATING  «heTmER  OR  NOT  NUL*e  TRAIN  I*  CODED* 

■I  IN  NOT  COOED*  a2  IN  CODED 

number  ON  LAVER*  AT  NHICM  BLOOD  NLOm  IS  DESCRIBED 
HIGHEST  DEGREE  ON  BgRN  PRODUCED .DIMENSIONLESS 
NUMBER  ON  RAOIAL  INCREMENTS  WITH  WHICH  TO  SUBDIVIDE 
RADIAL  DISTANCE  NROm  RaO  TO  RXCL») 

MAXIMUM  I AND  J INDICES  AT  MHICH  IRREVERSIBLE  DAMAGE 
OCCURB*INITIALLV  LMI  SET  EOUAL  TO  N TO  ENTER  SUBROUTINE 

crater 

NUMBER  ON  INTENSITIES  8NECINIE0  IN  IRREGULAR  NR0N1LC 
INDEX  CONTROLLING  WHETHER  OR  NOT  TO  MAINTAIN  RATES  ON 
HEAT  LOSS  SM  NOR  NEXT  TINE  STEN 

NUMBER  ON  SKIN  LAVERS  HAVING  DXNNERfNT  OPTICAL  AB80RN- 

TIVITIES 

DUMMY  PARAMETERS 

TOTAL  NUMBER  ON  Z GRID  INCREMENTS 

MAXIMUM  NUMBER  ON  TIME  STEPS  TO  BE  CONSIDERED*  SHOULD 

NOT  EXCEED  OXNENSXGn  OP  ARRAV8  PONER*XP«  AND  OTX 

NUMBER  ON  UNINORM  oz  INCREMENTS 

TOTAL  NUMBER  ON  AXIAL  BRIO  POINTS 

TOTAL  NUMBER  ON  RADIAL  GRID  INCREMENTS 

NUMBER  OR  UNIFORM  OR  INCREMENTS 

TOTAL  NUMCJR  ON  RADIAL  GRID  N0INT8 

NUMBER  ON  CROUDS  ON  PULSE*  USED  NO'  NON-COOEO  NULSE 

CALCULATION* 

INDEX  INDICATING  WHETHER  OR  NOT  MULTIPLE  PULSES  ARE 
TREATED  XNOIVIDUALLY(NGXaO)«  OR  IN  SROUPS(NCXwl) 

NUMBER  ON  TIME  STEMS  DURING  NULSE 

NUMBER  ON  NULSES  IN  SUCCESSIVE  GROUPS 

NUMBER  ON  NULSES  REPRESENTED  BY  PARTICULAR  PULSE* 

SET  aO  EXCEPT  NOR  LAST  ON  A SERIES  ON  INDIVIDUAL  PULSES 

NUMBER  ON  laser  pulses  considered 

MIN1MUN  NUMBER  ON  TIME  STEPS  USED  TO  EMBRACE  PULSE 

WIDTH  ASSOCIATED  WITH  SINGLE  PULSE  EXPOSURES 

NUMBER  OP  TIME  STEPS  DESIRED  FOLLOWING  EXPOSURE. 

SHOULD  BE  SET  EQUAL  TO  TO  RELATIVELY  LARGE  NUMBER  TO 
ENSURE  ALL  DAMAGE  HAS  OCCURRED.  COOE  WILL  END  COMP- 
UTATIONS  IP  DAMAGE  MAS  CEASED.  NT*  VALUES  ON  ABOUT  20 
SHOULD  SUFFICE.  ALGl’  useo  TO  check  IN  SUFFICIENT  TIME 
STEPS  MAVE  SEEN  ALLOCATED  IN  ARRAYS  INVOLVING  K.  SO 
DO  NOT  USE  EXTREMELY  LARGE  NUMBERS  ON  ORDER  ON  MK 
NUMBER  ON  TINES  TEMPERATURE  CALCULATIONS  ARE  RECYCLED 
IN  ESTIMATING  RATES  ON  HEAT  LOSS  DUE  TO  STEAM  GENERATION 
LASER  POW£B  .-WATTS 

LASER  POWER  AT  K-TM  TIME  STEP*w*TTS 
LASER  POWERS  ON  SUCCESSIVE  CODED  NULSEStWATTS 
LASER  POWER  ON  NON-COOCO  PULSES  (ALL  EQUAL) *WATTS 
MAGNITUDE  ON  IRREGULAR  LASER  PROFILE  AT  RADIAL 
DISTANCES  RXCU*  VALUES  NEED  ONLY  TO  BE  RELATIVE*  DIMEN- 
SIONLESS 

PREVIOUS  LASER  POWER  POW«WATTQ 
MOST  RECENT  LASER  POWER  POw.hiTTS 
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QP 

R(J) 

R§ 

REF. 

REPEY. 

»ev 

RIM. 

HINT 

RN 

RUNlF, 

RX(U. 

Ri.R2.R3 

1<1»J> 

SHF. 

4H0. 

iHt.ilMI, 

•»tl) 

8*0, J) 
TBtt). 

TSL(L). 

TOtRH. 

TE. 

TERIO. 

THU). 

TTIME 

TIMCHmO.t 

TIME2(KKJ. 

TO. 

TOE 

T8"E*T, 

v,vo 

VHP 

VSMCI.J) 

RAVEL. 

HM(I) 

RO.tRt.fR'2.. 

*C. 


XPlL) 


IhUtll... 

ZBL 


FACTOR  ADJUSTING  MAGNITUDE  op  PROPILE  POR  POWER  OP 
1 MATT.  CAL/C**-SEC.MATT 

RADIAL  DISTANCE*  STARTING  AT  R(t$wO.  ANO  ENOING  AT 
R(N1)«RN.CM 

PEAK  TEMPERATURE  IN  C AT  DEPTHS  AT  WHICH  STEAM  CANNOT 
ESCAPE 

REPLECTIVjry  OP  SURFACE  OP  SKIN  POP  RADIATION  OP  GIVEN 

WAVELENGTH. oihensionless 

REPETITION  RATE  PCR  NON-CODED  PULSES tPULSES/GKC 

maximum  temperature  por  2 or  3*0  ploti.c 

RADIUS  AT  WHICH  NORMALIZED  GAUSSIAN  INTENSITY  EQUALS 
CUT.  CM 

incrementally  small  raoial  distance  used  to  integrate 

IRREGULAR  PROPILES*  CM 

MAXIMUM  RAOIAL  OISTANCE*CH 

RAOIAL  EXTENT  OP  UNIPORM  PROPILE. CM 

RAOIAL  DISTANCES  AT  WHICH  INTENSITIES  PX(L)  ARE  8PCC- 
IPIEO.CM 

P ACTORS  SY  WHICH  AXIAL  INCREMENTS*RADIAL  INCREMENTS. and 

time  STEPS  ARE  EXPANDFO* DIMENSIONLESS 

RATE  OP  HEAT  DEPOSITION  PER  UNIT  VOLUME  OP  TISSUE  AT 

ZC I) »R( J> .cal/chs-sec-watt 

DIAMETER  OP  hair  POLLICLE.cn 

SPECIFIC  HEAT  OP  NON-WATER  CONSTITUENTS  IN  SNEAT* 
CAL/CN-C 

CONSTANTS  POR  CALCULATING  SPECIFIC  HEAT  OP  TISSUES 

AS  FUNCTION  OP  WATER  CONVENT. CAL/GM-C 

GRANS  OF  NON-WATER  CONSTITUENTS  RER  CM*  AT  ZCI) 

ESTIMATED  FLUX  EXPENDED  IN  EVAPORATING  NATER*CAL/CN3-SEC 
THICKNESSES  OP  SUCCESSIVE  LAVERS  USED  TO  DESCRIBE  RLOOD 
PLOW  BLCU.CH 

TEMPERATURE  IN  C AT  WHICH  PRESSURE  EQUALS  L ATMOSPHERES 
THICKNESS  OP  OERMfS.CM 
ENVIRONMENTAL  TEMPER ATUREtC 
THICKNESS  OP  epioernis.cm 

THICKNESSES  OP  SUCCESSIVE  SKIN  LAYERS  USED  TO  DESCRIBE 
AB8(L).CM 

TOTAL  ELAPSED  TIME. SEC 

TIMES  BETWEEN  WHICH  TEMPERATURES  WILL  BE  PRINTED. SEC 
INITIAL  SKIN  TEMRERaTURE»C 

INITIAL  TCNRCRATURE  OP  SKIN  ASOVE  THAT  OP  CNVIROMNENT.C 
thickness  op  sweat  later.cm 

NEW  ANO  PREVIOUS  TENPERATURE8  ASOVE  ENVIRONNENTAL 
TEMPERATURE  TE.C 

PEAK  temperature  OP  HAIR  FOLLICLE* C 

VOLUMETRIC  HEAT  CAPACITY  OP  SKIN  AT  Z(I)*R(J) *C*L/CNJ-C 
WAVELENGTH  OP  LASER*  RADIATION. MICRONS 
GRAMS  OP  MATER  PER  CMS  AT  DEPTH  Z(X) 

GRAMS  OP  WATER  PER  CMS  OP  SWEAT.JUST  BELOW  EPIDERMAL 
SURFACE. DERMIS.  AND  SUBCUTANEOUS  TISSUES.  RESPECTIVELY 
FACTOR  BY  WHICH  TIME  STEPS  ARC  PROGRESSIVELY  INCREASED. 
IP  TEMPERATURES  COMMENCE  TO  OSCILLATE  JUST  PRIOR  TO 
PULSES.  REDUCE  XC  CLOSER  TO  1 

NUMBER  OP  PULSES  REPRESENTED  SV  PARTICULAR  PULSE  IN 
OANAGE  CALCULATIONS.  ALMAVS  ! EXCEPT  WHEN  PULSES  ARE 
CROUPEO  TO  CONSERVE  CONPUTATIONAL  TIME 
Dummy  parameters 

DEPTH  at  which  tissues  may  separate  to  form  SLISTER«CM 
.MUST  BE  EQUAL  OR  CREATE*  THAN  DEPTH  ZDEP 
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C ZDEP 

C ZECL) 

C 

C ZH(1) 

C 

C Z« 

c z«. 

c 
c 

c zz. 

c 
c 
c 
c 

C Z«U). 

c 

c »*»  dimensioning  or  arrays 
C 

c ARRAYS  -1 X T H DIMENSION  K?, — DTX, POWER.  AND  XP 

C ARRAYS  RITM  DIMENSION  K*  TIME  1 « AND  TIME2 

C ARRAYS  RITM  DIMENSION  LB.  — BL.AND  TB 

C ARRAYS  mXTH  DIMENSION  L».— PX.AnD  RX 

C ARRAYS  RITM  DIMENSION  LZ , — ASS . IZ * TM.  AND  ZE 

C ARRAYS  WITH  DIMENSION  MJ,— CN,CXCiCXR»DXC»DXR»PXC.FKR.JH,Z.ZH.mn<, 

C XR1«XR2.XR].XRS.XRS.XZ1.XZ2.XZ3*XZR.AND  XZS 

C ARRAYS  RITM  DIMENSIONS  **5 . NJ  .— A 1 1 A2  . AS  » SI  ♦ B2  * S3 . CON.  DO.  I.SS.  SR  . 

C V.VSM. VXO»VXX» 4ND  RATER 

C ARRAYS  RITM  DIMENSION  NG.— NPG»AND  NPR 

C ARRAYS  RITM  DIMENSION  NPULSE.—DPULSC*  AND  POrERC 

C ARRAY  RITM  DIMENSION  Nr.  — Jr 

C ARRAYS  RITm  DIMENSION  N3.«— MR»AnD  P 

C 

C MS  INFORMATION  FOR  INPUTINO  OATA  INTO  CODE 

c 

C N1  CHEATER  than  OR  EQUAL  TO  2 . MR  LEM  THAN  TIRE  INTERVAL  DIMENSION 

C HIM*  RUNIPi  AND  RX(LR)  SREATER  Than  |HF 

C ZBL  GREATER  THAN  OR  EQUAL  TO  ZDEP 

C ALL  DEPTH  INPUT  DATA  REFERRED  TO  SKIN  SURFACE*— NOT  FROM  SURFACE 
C OF  any  SREAT  layer.  THIS  INCLUDES  DEPID*0HF*TB(L)*TEPID*TM(L>» 

C ZBL*  AND  ZDEP 

C IF  TEMPERATURE  OSCILLATIONS  ARE  EXPERIENCED  EXAMINE  WHEN  THEY  OCCUR. 

C IF  IMMEDIATELV  FOLLOWING  THE  START  OR  end  OF  THE  FIRST  FEN  PULSES* 

C REDUCE  ZR.  IF  BETWEEN  THE  FIRST  TWO  PULSES  REDUCE  XC*  IF  AFTER  SEVERAL 
C PULSES  REOUCI  ZZ. 

•• 


OEPtM  BENEATH  which  MATE*  DOES  not  ESCAPE.CM 
DEPTH  EQUAL  TO  TK(15aTM(2)  ,.,Th(L»1)  FOR  L GREATER 
Than  1 .OTHERWISES  .Cm 

depths  below  skin  surface,  equals  czci)+zu*in/z. 

CM 

MAXIMUM  AXIAL  DISTANCE. CM 

CONSTANT  CONTROLLING  SIZE  OF  MINIMUM  TIME  STEP  DTO. 
SHOULO  BE  O.S  OR  SLIGHTLY  GREATER. TEMPERATURES  WILL 
OSCILLATE  IF  ZR  IS  TOO  LARGE.  DIMENSIONLESS 
FACTOR  BY  WHICH  SMALLEST  TIME  STEP  IS  PROGRESSIVELY 
INCREASED  IN  TREATING  suceeding  pulses.  USED  TO  con* 
SERVE  COMPUTATIONAL  T 1 ME  WHEN  GREATER  THAN  1.  IF  T|MP* 
ERATURES  COMMENCE  TO  OSCILLATE  AFTER  SEVERAL  PULSES 
REDUCE  ZZ  CLOSER  TO  1 (NEVER  LONER) . DIMENSIONLESS 
NUMBERS  USED  TO  ESTIMATE!  HEAT  LOSSES  DUE  TO  STEAM 
GENERATION.  DIMENSIONLESS 
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C IP»£6ULA»  P&OEJLE 

1* 

»EAO(S,  J)|  (HX(L5  r l * 1 »l») 

»FA0(5.J)fP*<L)*L*i*LSl 

xo»«x(lb) 

D***0/Nt 

?t  f>eAr>(St22}wtVfi.«*e«ZB»77tl4*e»*NPUCSE,N8X»NTX 
22  F0RHAT(4E7,1 «4IT) 

tF<LA8E*». ESI. 2)60  TO  30 

c ***  NON-cooto  laser  pulses 

iKNouLse.sT.nso  to  ?« 

READ(<5,?iwTP.0PUL8E»P0wX 

XX*0PUL8E 

60  TO  40 

2«  4FA0fSf2)MTPt«£PtT»0PUL8E*B0*X 
XXa  (NPIILSP- 1 ) /»f  PFTf-OPUL  8E 
IFtNCX.EO.nCO  TO  76 
00  25  LaltNPULSE 
NP6CL)*! 

25  NP«(L)*1 
m6**PUL8E 
on  To  uo 

26  PF*0(5,U)(yO 

BfA0(5,  Jl)  (WPfi(L)tLPl«XlS) 

HE*0(5«U)  (NP»(l).L»1  .N6) 

60  TO  40 

C •*«  COOCO  PULSES 
JO  »E*0(5,U)NrP 

RFA0(5. J) (DPULSCtL) »LP1 .NPUL8E) 

»M0<5,  J)  (POHERC(L)  «L*1  .NPULSE) 

C *•*  DETERMINE  02»Jf*t  AND 
«0  X2«Oa 
X4*0. 

L«1 

«1  X?«X2*A0SfL)PTH(L) 

XU*X4«TH((.) 

L*L*l 

IP(X2.LT.8..AN0.L,LE,LZ)00  TO  41 
PEA0C5*  1 1 ) H . 

irtLASEP.fo.nco  to  44 

XXaO, 

Oo  «2  LpIaNPULSE 
42  XXpXXaoPULSC(L) 

44  ALPHA* (CONI TC0N26*! /Ol) /(SHJ *D|6gH2*W| ) 
XJ*2.*80PT(ALPHA*XX1 
NJ**Ut 
pJ*hai 

ZHPJ.0*(X46KJ) 

HISl 

0?*(T8«EATtTEPT0)/H1 
IF(DHF.GT.ZN)60  TO  46 

IPt JP»0P.EJ.0)0P*T»UNIr«SHP/2,)/(N1.|,§) 
TPUPPOP,?o.l)OPP(BiM-8HP/*,)y(iai.i) 

IE ( IPPOf ,EC ,2 ) OP* (OX (L95 »SHP/2, ) / ( M 1»1  j 
46  PN*1,56(X04XJ) 

PFAO(5,it)jr»i«io2»joi«jr»j*  ittpe«nTvpe«kx 

ITVPEXaTTTPE 

PEA0(5,J)fTIHEl  (L)  *L<4t  *EX) 
PEA0(5tJ)(TIHE2(L)*L*1»XXI 
SEA0(S4?)NH«(2w(L)*Lh1<NPT 


litlflREG 
12.IPPEG 
)2» IRPE6 


IS 


10.NC.1 


»4*N-,X 


KHNC.SP 

14,NC,SP 

14.NCSP 


UtCOOEO 
14. COOED 
14. CODED 


IS 


16 

IT 

ts 

IS 
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*BlTE(6tU6)  CZ*(L)  «L»1  *MO  ...  ■ 

4*  fcwHutd;1  *ihz>»«, tor*,?' 

RFA0(5»1>D6J tDB?.DB3vDB5  20 

*RIT£(6. 09)081 .Db2*DBS.DB5  ... 

49  FOSMATnMC*4MOBi«.4£10.4) 

CALL  TIME  CALL  1 

CALL  GRJ&  CALL  1 

CALL  PROF  CALL  1 

IPOTYPE.Efl.O)GO  TO  55 
c •**  0*T*/CiSD8  FO«  2 OR  3-D  PLOT* 

RfcA0(5.M)::i»ii*.m.jji.jj*  ai 


k«ite(i.50)  in»ii2*n  j.  jji  » jj«  ... 

50  FORMAT (5IT) 

WRITE(1«50)NJ,M1 

mRJTeO  .5?)  <R(J)  * J«l*N3)  ... 

RRITEO*52>(ZCI}»I«»1.m3)  ... 

52  FOHMATOOF7.4) 

55  MRITE<8«58) A88C»ABSw.CB*CONl*CON2*00*01 » D2*D3*DEPID. HAXR*RIF*8H0» 
lSHl«SH2«TDER*«TE«T£BIO'TO«TIWEAT'MO'Ml'M2»N3«W,tVELtXC'ZDCP'ZRtZZ 
88  FORMAT  OH  *SHAB8Ca*F y ,0 • 2X *5HABBR* • FT  ,0 • 2X  • SHCBa  *F7 . 3«2X  «5KC0N ta« 
lFBI5f2X,5HC0N2»,F8,5/lX.3HD0R»F6,3.2Xi3HDi«,F8.3i2X.3N02nFA.3. 
22X*iH038.F8.J.2X,6MDePID8.F7.4/lX»5HMAlRa.F7,#.2X.OMREFB*F7.2»2X. 
38H8MOB.F7,4*2X,«H8Hl«,F7,<i»2XtRH»H2»*5r7.«/lXt6HTOCRM«»/7.«*2Xe 
43MTEB,F5*0»2X*6HTEPIDa,F7.4*ax«SMTO«#F3.0*2X*TMT8HlATa,F7.4/lX* 

53H.0» , Fb , 3 * 2X * 1H. l ■ # Fb , 3 » ?X  t JH.2« « Ffe ■ 3 • 2X  * 3HR3* • Fo , 3 • 2X  j 8HN A VEL" » 
6Fb.l/lX.3HXC».Fbe3*2X*8HZDEP«fFb.3.2X*3HZB*.F5.1»2X.3HZZ«fF7.8) 
M«ITEC8.S9)IPR0F.LA3ER.L8»LZ»N,M1*M*M1*NPUL8E.MCX*NTX  ... 

58  FORMAT  oh  *8HIPB0F». X 1 . 2X • 8HL ASERa « X 1 • 2X • SHLBa « X2 ' 2X • SHLZ* * 12 '2X i 
1 2HN« » 12 , 2X » 3HH1b t 12* 2X i2HM«* |2* 2X » 3HM1«* 12/1 X « 7HMPUL8ER » I*f 2X . RHMG 
2Xa*  X 1 «2X*4HNTXa* 12) 

MRlTE<*f*0)ZaL'HftfDTEMP«OHF*«HF  ... 

80  FORMAT  OH  »4HZBLa*E6*3*2X*3HHWa* ES*3*2X*6HDTEMPa*F8*0«2X*4HDHPa* 
lE8.3/tX.«H|HFa*E8.3) 

!FOPRCF.EB.O}WRXTE(5«»4)RUN2F 
*4  FORMATOH  «8KRUNIFa*E9.3) 

IFOPBOF,E0.nMRITE<*.85)CUT«RXH  ... 

85  FORMATOH  *4HCUT»»FR,«.2X.RHRIM*,F8,«) 

IFOPROF.iO,2}WRXTE(6,66)LR*(RX(U  «L*1«LR) 

88  FORMATOH  • 3HLR»*  13*  3HRX.  / O X * 10£6*3)) 

XF( IPROF ■EQ%2)MRXTE(8*87)(PX(L)iL*l'LR)  ••« 

87  FORF  JTOH  *3HPX*/OX.  1 0F8.3)  ) 

XF(LAiER,EO,2)00  70  72 

MRITE(6*8e)0FUL8E«HTP*P0WX  ... 

88  FORMATOH  *7HDPULSEb.E9.S«2X*8HNTPb*T2«2X*SHP0MXp*E9.3) 
XF(NPUL8E.ST.nMRTTE(6.8«)  (NPG(L)*Li»l*NG) 

89  FORMATOH  *4HNPGa/<  IX*  10  XT)  > 

IF (MPIJL8E »CT *1)MRITE(8*70)  (NPR (L)  «L*l *RG)  ••• 

70  FORMATOH  *4HNPRB/OX»i0I7)) 

IF (MPUL8E«6T «1)MRXTE(9«71 )RIPET 

71  FORMATOH  t8HRCRET8*E9.4) 

GO  TO  78 

72  MR1TE(8«74) (0FUL8C(L) »L.1*NPUL8I)  ... 

74  FORMATOH  •7M0F0L8C«*/OX*l0E8.3l) 

MR:TEC8.75HP0mCRC(L)»LR1*HPUL8E)  •— 

75  FORMATOH  *7HP0MIRC«/OX»  10EB.3)  ) 

78  MRITE(9*79)XD1*X0I«XTVPE«JD1»J02*KTVRE  -®. 

79  FORMATOH  » 4HID10. 12*  2X  .4HI02*  tll.fx  *8HITVFER*  I2» IX  • «H JDl*  * I2'2X  . 

14HJD2a « X2i2X • BHXTVPEa* 1 1 ) 

*RITE(fc*80)CTINEi(L) * t«l *KX) < (TTME2JL) tL«l *KX)  ... 

80  FORMATOH  vGHTIMEl*2a/0 X*  1 0CG* 3) ) 

BtSLAVWlABLE  COPY 


113 


fEOHNUVU  COPY 


R*ITE(8iB;)(TH(L)*Lb1»LZ) 

81  FOHMATOH  (SHTHb/<1X»10FT.«1) 

NRITE(6«S2) (AB8(L)*L*1*LZ) 

02  FOHMATC1H  .AHABM/UX.  10X7,0) ) 

WAITE(6.8J)(TB(L)«LH.te) 

83  FORMATC1H  *SHTB«/(IX* 10F7.AJ) 

NRITE(fc*OB)(BL(L)*LBl»LB) 

BB  FOKMATC1H  ,3HBLb/UX*10F7.«)) 

NRITE(AfB1)DAM(l»i)*DAM(lt2)*DAM(2,l)*0AM(2«21 
BS  FORMAT (1H  • 9HDAM( 1 • 1 ) a * F* , 1 *2X  1 9HDAM ( 1 » 2 ) a t FB » 0 «2X • 9H0AM ( 2 • 1 )■« 
lFii.l»2X,9MOAK(2,2)«*F6,0) 

NRITE(8»86)0R*RNfDZ»ZM*NG 

8*  FORMAT ( t H » 3HDRa*F6.tt»2X  »3HRNB*F8iO*2X*SHDZB*F8i8*2X*lMZMB»FB»A» 
12X.3HN0f.I2) 
ttime.o. 

IMAXBM 

JMAX*N 

IMIBM 

Xl«TBMEATtOCFZO 
X2>T8WEATtZOEF 
«'  '‘•BO. 

SJGVbTOE 

IBB1 

NBBTOE 

00  BB  Zb 1 1 m3 
ZF(Xi.OT.2(Z))!ZBZTl 
ZF(X2«6E.Z(Z))ZR«tTl 
DO  BB  Jb 1 * n3 
0CI.J)b1.E-10 
V(I*J)BT0E 
BB  VOd.JJaTOf 

START  OF  TEMPERATURE  AND  DAMA6E  CALCULATIONS 


90 


KKBl 

KB} 

OTBDTX(K) 

TTIMEBTTZME^OT 

FOBbFOMCR(K) 

IFCimax.gt.okall 

ZF(ZMAX.GT.0)CAU 

ZR(LMZ.0E.ZI)CALU 


CRATER 

BA 

HTDER 


CALI  X 
CALL  x 

call  x 


too 

101 


102 

10B 

101 

108 


zf(k,gt,i)60  to  ios 
NRITE(BttOO) 

FORMAT E 1 H (22HMEAT  0EF08ZTZ0N  RATES*.  10M— -••••••) 

WRITE (A. 10 1 ) (R(J) .JbJ01.JD2) 

FORMAT  ( 1 M f 10X.2HRBc9FB.«/13X»30H».*— 

DO  10«  ZbZDI » Z02 

MRZTK(*'102)Z(I)t (8CX«J)'JbJ01«JQ2) 

FORMAT  C 1 H »2HZB.f«,U.2X.*ES,33 
CONTINUE 

WRITE  (*. 104) DT.TTIME.F0W.XF(K)#ZMAX.  JMAX 
FORMAT (lMO»3MDTBiCB,3t2X»SMTZMEB,E9.«»2X»*HFOM*M»I9tl 
1F5.0.7M  ZmAXb#I2»7H  JMAXs.12) 

CALL  TEMF 
CALL  DAMAGE 

IFCXFOO.LT#. 99)50  TO  119 
IF(ITrFEX,LT.ITYFE.0R.KK*6T.*X)B0  TO  119 
ZF(TTIME,LT.TZMEltFX)#0R,TTIME,BT,lZME2(RF))B0  TO  Ilf 
DO  107  ZRZDltZOZ 
DO  107  JBJDl « JD2 


CALL 

call 
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107  VT(ltJ)aV(X»J)-TOE 
wRITCUfiOl)  (R<J)#JaJQl.J02) 

00  110  TalOlilO? 

MRITE(8. 108)2(15 i (VTC t J) * J»J01 1 J08)  — 

108  FORMAT ( 1 H »aHZBf r§,«.aXftF8, n 
no  continue 

ITYPEXbO 

iMKTVFE.Ee.OJCO  TO  118 
00  112  lalll'Iia 
DO  112  jajjl t JJ2 
112  VT(I«J)aV(XtJ)*TOE 
00  118  ialll»112 

n»ITE(1i1151(VT{I.J).JbJJ1.JJ2)  ••• 

115  FORMAT ( 1 0F7 •!) 

118  CONTINUE 

NRITEC 1 t52)R6V  — • 

118  IT VPEXaITVPEX+1 

110  IF(TTIME,GT.TIME2<KK) ,AN0.KK.IT,KX)KKbKK81 
IF(V(l«l).0T.ZB5)ZB5aV(lfl) 

KBKtl 

IF(K,LE.KT)00  TO  40 
NBITCC8.122) 

122  FORMATtlM  « 7MDAMAGE«* 10 H-«- 

mRITE(8i101)(R(J) • JaJOl • J02)  — 

DO  124  laH«102 

»RlTE(B«121)Z(I}«(D(ltJ) « JaJOl • J02)  ••• 

121  FONHATdH  f2HZa«F8.4t2X«4E8,2) 

124  CONTINUE 
X4*l. 

RBbRB+TE 

IFt4B.LT. 100, ICO  TO  110 
l*i 

128  IF(RB,LT,TBL<L))G0  TO  128 
L*l+1 

IFCL.LE. 27)00  TO  128 
128  Xl«(FB<iTBLa-t))/(TBL(L)*TBL(L«l)) 

X4BL.1.+X1 

110  NR1TE(8«112)X4«Z(XB)  ••• 

112  FORMAT ( 1H  *14MPEAK  PRE88URE*«P7.1*SM  AT*. « IX »8HDEPTHB,F8.4* JH  CM) 

VHFbVHFaTE 

IP(XB.EQ.IHF)MRITE(8«11S)VHF  — 

111  FORMAT ( 1H  » 17HL0CA7ED  AT  HAIR  FOLLX CUE ( TEMPERATURE* tF5»0tlM  C)) 

JOH*0 

DO  140  jal'N 
IF(0(M»J)  aOE.l.)  JDRaJ 
140  CONTINUE 

IP(JDR.EA.O)GO  TO  180 

X l*ALOG(D( I I * JOR) /DC  1 1 • JDRt 1 ) } / (R ( JOHA 1 )>R( JOR) ) 

X2*R( J0R)+AL0G(0( X I » JOR) ) /X 1 
MRITEC8* 1443X2 

144  FORMAT (1H0»17HRADIU8  OP  DAMAGEb*  F7.4.1H  CM) 

00  150  lalltM 
XF(D(I«l).6E.l.) 102*1 
1*0  CONTINUE 

XlBAL0e(0tXDZtl)/D(X0Z8l«l))/(Z(X0281).!(X0Z)) 

X2*Z(IDZ)8AL06(0(X0Z«1))/X1 

MRITEC8. 1543X2  ••• 

154  FORMAT ( IMOi 18HDEPTM  OF  DAMA8E*«  F7.4.1H  CM) 

180  LOU*0 

IPCOtll.D.CT.OBDLOBat 


BEST ' AVAILABLE  COPY 
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IF<D(U.  1)  ,GT.DB2n.0B«* 
ircocit.r ) ,ST.OBl)LOBO 
if< jk.gt.i)L08*c 

IF(ZB5*TI,CT,0B5)LDB»5 
MRlTE(Of IbiJLOB 

1*2  FOHKUTUHOilSHOEGftEE  OF  BURN*  ill) 
STOP 
KNO 
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■ ..■•UMOUTINt 

C M*  TIME  COMMUTE!  l»8ER  POHfRB  POMER(K)  FOR  EACH  TIME  ITER  DTXOO 

COMMON  ABS(  1 1).  ABBe.  ALPHA.  A1  (35*35)  .42(35. 35).  AK35.35).  81  (35.35). 
182C33.15).BJ(35.15).BLm>.BLO00(35)  .CB.CONl,eON2.CON(15*35)»CUT. 
2D(35.J5)  .DAM(2.2) .DK*»DB.OT.OTX(ZOO) .DPUL8E.DPULSCC50) .DTEMP.OZ. 
lDO*Ol*D2«01.H*MAIReHR(13)»NX»lB»IHF.II*IHAX*IP* I PROF  .IR.JMAX.K.KT* 
aLA8ER,LB.lMI.LNJ.i,R«LZ.M,MK.Ml  .Mj.n.NI  .NJ.NG.NGX.NPGOO)  *NPH( JO)  . 
§NPUL8E.NTP.NTX.NM,PaM.POMeR(200>«PON|Re(50>.POlNX.PX(50).R(15) »RB. 
<»R£F .REPET  . R1M.RGV .RH.RUNZF .RX(50). 8(35.35) . 8HF.BH0 » BH1 «SH2.T8( 11). 
7T0ERM,TE.TEP10.TM(11).TCE.T8MEAT,TTINE,V(J5.J5>*VMF.V0(J5.13>« 
BVBHC 35,35).  PATER (35.15). PO.Mi. Ml. WJ.XC.XP (200) .Z(35) .ZBU.20EP. 
4ZN.ZR,Z*(1Q).ZZ.0S5»JM 
00  2 KPt.MK 
PO*ER(K)»0, 

2 XP(K)«1. 

XOpBHF 

IF(ZM,^T,OHF)XO«l.lAiO 

X1PAMINKDH.OZ.XO) 

DTCPZRPXlPXt/ALPHA 

OTTpOTO 

XX5PXC-1. 

. XXPPALOC(XC) 

IF(LA8ER«Eb»2)G0  TO  70 

C PPP  NON-CODED  PULSES--- • 
IF(NPUL8E.6T.1)Q0  TO  31 

C PPP  EXPOSURES  INVOLVING  A SINGLE  PULSE 
DTlPDPULSE/NTP 
IF(DT1.GT,DTO)GO  TO  B 
DO  « KPl.NTP 
OTX(k)«OT1 
« POPER(K)pPQWX 
L3PNTP 
GO  TO  24 

B L1PALOG(OT1SOTO)/XX*+1 
X1PDT0P(XCP*LI-1.)/XX5 
IF(X1.GE.DPUL8E)G0  TO  20 
L2p(0PULBE»XI)/0T1P1 
OTtP(OPULSE-Xt)/L* 

00  10  KPl.Ll 
DTX(K)hOTT 
POPCR(K)pPOHX 
10  OTTPXCPOT-? 

LIPUlPLI 
Ll"Llt 1 
DO  12  KPL1.L2 
DTX(K)P0T1 
12  PONER(K)pPONX 
L3PL2 
GO  TO  24 
~20  X1P2, 

22  RJ*EXP( ALOG( (DPUL8E4X 1-OPULBI) /DT0T1 , ) /LI ) 

IF(H3/X1,GT. .44444. AND, R3/X1.LT. 1.00001)00  TO  l« 

X1PR1 
GO  TO  22 

i«  WRITE(Ii.2*)R3 
28  FORMAT 1 1 H »1MR1p.F8,«) 

DO  28  KPi.Ll 
DTX(K)pDTT 
P0PER(K)pP0PX 
28  0TTpR3*0TT 

BtSTlAVWUBlE  0 
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bestjmiuble  copy 

. CJ«U 
**  U«tJM 
tmi *ntk 
00  30  *m,Li 

orxo.*)«oro 

JO  OTO*KC*t  0 
00  TO  HO 

»/*SP*CT»OPUtSf 

j«»j*ot*x*op,ui.#f*Rwr 

X»«*XX«S(XC*1,} 

x«o 

30  so  t.»j.we 
OTO«ZZ*OTO 

C * i^fU.OT.i^O  to  -JO 
c * *JN8tt  out  set 
^•DPULtt/oro 
tr<*r,L T'i)»>»g 

xxi«o»ut,at/w 

Ll»K+ l 
U«K*NX 
*®  **  «»U*U 

OTXCKJm*. 

fOwCRCKJXE'OXX 

K«LJ 

JJi!*?***T*OTO>co  76  3* 

OTX<K)»XX« 

WtKJ*NMfL) 

K»K*1 

0TXCK)*xxj[.*x# 

ST  To  SO 

u ^•*ti',,fXXJ*XXf «OTOTi,I/xx4*i 

DO  36  K«UitJ 
OTXtKj.OTj 

3*  t>Ti*XC*DTi 
K«SJ 

SO  TQ  *0 

!,  !E?  er  'U'.ses 

so  x?«ni*0(s. J/scm 

:^c^f«y.0Ta)6c  to  «» 

K»Kt| 

otxckj.xi 

*0"t*CK>«*XJ 

XK*)wO. 

SO  To  so 

**  J;i*Jto8<xmxs/oroti. 

tJ«KTUJ 


00  «•  mu. LI 
orx(«i ac»a 
P0*ER(K)tXXJ 
XPf,«)#0, 

«•  0Tia*C*0T2 
Kali 

*0  CONTINUE 
L J*K*  t 
LSkktntx 
00  5a  KlLJ.LJ 
DTX(K)aOTO 
Sa  OTOaxc*OTO 

KTaiJ 
SO  TO  130 

c a**  cocso  PULoei— 

TO  Kao 

DTOaOTO/ZZ 
00  100  lal.NPULSe 
OTO«ZZ*OTO 
OTTaotO 

OT 1 aoAULOC (D /NTK 

!E(0T1.0T.0T0)80  TO  TO 

LtaKfi 

LlaK+NTK 

00  7a  Kali .12 

OTX(K)aOTl 

Ta  POKER (K)aPQKERC (L) 

K8L2 

GO  TO  100 

7*  Lla*LOG(DTl/0TO)/XXA*l 
XlaOTO*(XC**ll-l.)/XXS 
lA(Xl.GE.0RULtC(L))«0  TO  TO 
Lla(ORUL«CCL)»Xl)/OTl*l 
DTlBCDRULGCtU-XtWli 
LlaKai 
L«RK*L1 
00  so  KaLS.Ut 
OTXUjaOTT 
POKER (K)aPOKERC  tl) 

•0  OTTaXC*OTT 
LSaiaai 
laalaTiz 
DO  82  KalS.lt 
OTXtKjaOTi 

•2  POKER (K) aROKERC (L) 

Kata 

GO  TO  100 
TO  Xla2, 

82  RSaexP(*LOO((OPUL8C(L)axi-OPUL»C(UJ/OTOTl.)/Ll) 
IP(«jyxi,GT.Taaaa,ANo.PJ/xi.LT,i.ooooi)8o  TO  «* 
XlaRS 


GO  TO  82 

8a  KRlTEta.2*)P) 
liana  i 
LJaKau 
00  88  Kail. LI 
OTXlKJaOTT 
POKER (K)aPOMERC(L) 

8i  OTTaRjaoTT 
Kal  J 


BEST JVMMf  COPY 

1 00  COnT jMjf 

LttatUNTx 
CO  lit  x«LJ*Uu 
OT*(K)«OTO 
HO  OTO»KC*OTO 
WT*U« 

1*0  XM(KT,QT«MK)*WIT((*,121)MT 

11  °*  "**  ,T,M  ***««•  OIMNtlON  NR.  Mr**  ID 

l * » |5T »“H J ITOf 

wont  cMtiiaxoTx  (to, m«i,mt) 

1*2  MOSMAT ( 1M  , MHO TX*/( 1 X ,•(*,!) ) 

woire(*,i20)(FOwe»KM},M«i,Mn 

l*fl  MOWMATUM  ,»HPOhEM/(1X,«(*,D) 

**JT|(*,1**><X0(M),M«1»WT>  ... 

11*  MORW*T(lH  <3MXM/(  U«  AM«0)  ) 

RfTWMN 

two 


c •••  e*io  conrutis  tnc  radial  »**n  axial  MKt  trot  »( ji  and  kd 

CO*non  tlKmitKCiUMli  Attll.ll)  *A3tlf.lt).Al(lS.lf).'lt  (11*19)  ♦ 
i sst  is.  is> » sms*is>.  slmi>»rlood(is>*c4. coni  »eoNs. contis.  id.  cut. 
zoos.isi.oamiz.s)  .DMr.o*.oT.oTx(30o>.r>RuLSc»ORUiseiso).oT«NR»oi. 
soo.oi  .os*oi.h»hair.m»< jn ,h.«,X8,!he,ii.!*ax,i».trroe.in.jnax.k.kt, 
• L »•!».  LB.  **♦>*«.>•  t.Kl.N.Nl  .Nl.NS.NSX.NRftdO) .NRRtlOl . 

SNRULSr.NTR.NTX.N*,ROR.Rt>*ER(300)  .AOHCRC(SO}.Rn*X»RX(SO),RdS>*RR. 
4REE .RfRET  .RIN.ROV.RN. RUNT? • RX (SO) . Sdt.lS)  . SNA .SNO.SMt .SMS.TBX 1 1 > » 
TTOlftMtTf.TfRXD.THOOv  TOC.TSmE AT  < TT  iNf  < V dS  < IS ) » VHR.  VOdS.XO  * 

ozM«m,zM(io).i2tOM«jN 

NMNH) 

MMM.) 

C M*  CALCULATE  ItftCM  CONSTANT  HI 
CMni.ni 
CR>RN«(N|at )*0R 

lMDHrtLT,2N)CMNN.(NI«|;A0MSMf/|, 

Tl'i, 

10  R3MXR<AL0G<(CR«XlaeR)/0R«t.)/eX) 

IKR3<,X1,8T,,4SR44S,AN0(PBS/X1,LT. 1.000001180  TO  II 

60  TO  10 

11  MRXTEt4.1«)R3 

C •••  CALCULATE  RADIAL  DISTANCES  RtJl 
11  RU)aO. 

R(*)r0R 

IF(OHE.LT.|N)R(i)«SMr/l, 

00  IS  Jal.NA 
IS  R(J)aR(J«l)4Dn 

xirrsror 

DO  1*  JaNA.N 
R(Jtl)aR{J)«Xl 
10  X1NR*«X1 

C CALCULATE  AXXAL  OTSTANCES  KD 
1(1)10, 

DO  1«  fal.NA 

is  z(i)Roztu-n 

DHEmOHRaTSME AT 

teriovterioatsneat 

IRlim.TSAEAT 

ZN«ZN*TSN5AT 

I*RaO 

IE(OMf,LT,|N)SO  TO  10 
C * HAIR  FOLLICLE  NOT  RRCSENT 
CRRMSaNl 
CAaZH.(N1-1)*0Z 
XlRl, 

30  Rl«EX»(AlOft(<CMXt«CR)/nZ*l,)/eX) 

IRtRmi.ST, .448488, AND, Rl/X|,Ll, 1,000001180  TO  31 
XlRRl 

60  TO  30 

31  81«Rt«BZ 

00  34  TaNA.H 

. zti*i)at(mxt 

34  XtaRl*Xt 
80  TO  TO 

C • HAIR  FOLLICLE  RRCSENT 
10  LXa(N«Ml)/l 
CKBLV.l 

CRa(DHFaTCRIDl/3,«0Z 


BESLAVAILABLEICOPY 
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bblavaiuble  copy 


HIM. 

II  919EX4(*L00<<CMX1-CF>/0ZM.>/C«> 

lF(t»l/XI.OT, ,444444. AND. 41/XULT. 1.000001)00  TO  14 
X1441 
00  TO  It 
14  .X1M1*0Z 

LI4N4*LX 
00  34  I»Ll *12 

zm«ui-mxi 

14  X 1*4 1*11 
CMLX 

C44(0MF-Til»IC)/l, 

X142. 

«l  414EXF(AL06(  (C4*X1*CF)  /IMF41  . ) /CK) 

IF(4l/X1.0T,. 494444, AN0.4I/X1.LT, 1,000001)00  TO  44 
Xt«H| 

00  TO  41 
*4  LMtl»LX 

zaa-n»OHF-»Mr 

Z(L2)«0HF 

Z(L2*|)4DHF*lHF 

IHX«LI 

IFtlX.LE.DOQ  TO  XT 

X1441*|HF 

L1BLX-I 

00  44  iaiitt 

zai)«zai*n-xi 

44  Xt>R|*Xl 
47  CK1HJ.LJ 
CMZH.OhF 
Xt«l, 

SI  4l4EX4(AL06<<C44Xl-CF)/OMFM,)/CtO 

IF(41/xt,GT., 499944, AN0.41/X1, IT, 1, 000001)00  TO  40 
X 144 1 
00  TO  SI 
40  X14414|MF 
11412*3 
00  4|  HtUMl 
7rn42(!«n4xi 
42  X 14414X1 
70  XI41000, 

00  7|  !4l*N 
X24Z0L.lt n 

IF(X2*XI,0T.X1)Q0  TO  71 
I44X 

X14XI4X2 
72  CONTINUE 

M4ITC(4,00)(4( J),J41,N3) 

00  F04N4TC1H  »|H4»/( IX, OF 4, 4)) 

N4ITE(4»40)(S(Z)« J41.NJ) 

90  rOKNXTtlM  , 2H|* / ( 1X«0F4,4)) 

4ETU4N 

END 


bunroutine  prop-—— 

c •••  PROF  COMPUTES  INTENSITIES  OF  LASER  SEAM  AT  GIVEN  RAOII  POP  L*SE» 

C •••  POoER  OF  1 MATT*** INTENSITIES  IN  UNITS  OP  C*t/C**-SEC 

COMMON  aSS(11>.ASSC.ALPma.A1{3S.3S).a2(3S.3S).a3(3S.3S)'»1(3S.3S)  • 
1S2(3S.35).S1(3S.35).BL(11).SL00D(  352.CB.CON1. C0N2* CON( 39*35)  .CUT. 
sot 15 .55) >0AN(2«S)*DMP.OR«OT.OTI(2O0)fOPULSE«DPULlC(SO)*DTEM»*DZ. 
SDO .01. 02*01# M.MA IR.HR (IS } »NN» IB. IMP  fllflMAK.IP. IPROP  • IN. JM AX.K .NT* 

ALASER.LB.LMl.LNJ.L*.LZ.M.MR,Ml,MJ,H.Nl.NJ.N6.NSll.NPCC10>.NPRtlO)* 

5NPULSE .NTR.NTX .NN.RON .ROWER t 200) »POnERC<50) .ROWX.PX(SO) *R(3S) .RBt 
AREF.REPIT.RIM.RCV.RN.RUNIP.P* (50). SOS. 15 J .SMPtSMS. SHl* SHE. TStll). 
7TOERM. TE. TEPID. TM(tl). TOE. (SWEAT. TTtNEfVtlS. If). VHP. VOtlf. IS). 

SVSMtlS.lS) .WATESC15.1S) .WO.wi .N2.Nl.XC.XPt 200) *2(15) .ZSL.IOEP. 

«£M. ZR,ZN( 102 .ZZ.0B5.JN 
DIMENSION  FA(S01).FP(S01).PX(501) 

UI*500 

00  10  Jal.Nl 

10  HR(J)aO. 

00  11  LNl.Lt 

11  PXUlRO. 

IPdPR0P.E0.P60  TO  «• 

IP( IPROP.EO.02GO  TO  50 
C »«  IRREGULAR  SEAN  PROFILE 
RINT«RX(LR)/(LI-n 

C • INTEGRATE  PROPILE  OVER  ALL  RADII  TO  DETERMINE  OP 

XSNO. 

00  IB  Ln2»LR 

X2N(PX(L)-PX(L-l))/(R*(L)-RX(L-in 

XlNPxa-l)-***»*(L-l) 

xInxia(rxcl)PRX(L)-RX(L-1JPRX(L-1))/2. 

XANX2*(RX(L>*RX(Ll*RX(L)«RX(L«npRX(L-l)*RX(L*l))/l. 

IS  X5nX5^*,2812P(X1«X«) 

GPn.25B0*n(1.-REP1N(1.-maIR)/X5 
c • INTERPOLATE  PROPILE  AT  INTERVALS  op  hint 
L2«2 

KINO. 

JO  21  LNl.LI 

20  IP(RX(L2).GT.X1)G0  TO  22 
L2NL2M 

IP(L2.LE.LRI60  TO  20 
GO  TO  21 

22  X2N(Xl-RX(L2-l))/<RX(L2)«RX(L2-n) 
PX(L)nPX(L2«1)TX2«(PV(L2)-RX(L2-1)) 

£1  X1NX1«R1NT 


C 

C 


C 


CALCULATE  TOTAL  ARE A .FA (L)  * ANO  INTEGRAL  OP  PX(L)  WITH  RESPECT  TO 
RADIAL  AREA, PP(L). PROM  RnO  TO  VARIOUS  RADIAL  DISTANCES  (L-.5)«R2NT 
FP(1)nS.1A1S«FX(1)PRINTNRINT/«. 

FA(1)»1.1«16*RINT*RINT/A. 

00  SA  Lw2«LI 

X1n(L-.5)*RINT 

X2«(L-1.1>*RINT 

PP(L)nPP(L*1)*PX{L)*1« 1*1S*(X 1**1»X2*X2) 

1«  PA(L)nPA(L«1)a1.1A1*p(X1NX1-X2«X2) 

• CALCULATE  PROFILE  NRCJ)  TOR  ALL  R(J) 

XIRO, 

X2N0, 


00  35  Jal.N 

X1«(R(J).R(J+1)1/(2.»RINT)*. 5000001 

IPdl.LT. l.TXlol,  0000001 

I.2NXJ 

IPCL2.GC.LI2GO  TO  IS 


BEST  ^AVAILABLE  COPY 
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SBLAVAILABII  COPY 


XS»Fpa2)*K«*(FP(L2*l>-FPa*>) 

*•(  J)»0P*U5-*l)/(*6-*i) 

■ IMS 
**•»* 

>9  CONTINUE 
CO  TO  70 

c caussian  seam  profile 

a«  SIGMA«l>t"*SGRT(»£./AiOcrc(iT1) 

*RITE.(6«R6)SIGNA 
«•  FORMAT! 1 HO • 6*8 IGma*«E8.3) 

OP«?.».21906«(U'»BEF)*(l.-MAI»»)/(  J.1#1MIICMA*$I6PA) 
00  fe?  J»  1 * N 

X5«*.*H(J)*R(J)/(SZGMAMI6*U) 

IF(XJ.6T.60,)GO  TO  «7 
HRt J)»0P*EXP(-X3) 

«7  CONTINUE 
CO  TO  70 

C UNIFORM  0EAM  PROFILE 

*9  CPa. 23906* (1  .•RFF}«d  .-HAIR)/ (3.  t«16*RL’NIP*RUNlF) 

00  60  Jal«*U 
60  MRCJJaQP 

70  MRITE(6«72)(HR(J)vjal«N) 

72  FORMAT ( |H  •SMHRa/(tX*9C0.S)) 

RETURN 

KNO 
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.. ......... -■subroutine  c ........ 

c *»•  CwAtER  COMPUTC*  CONDUCTT VITIEG.Kf AT  CAPACITIES  VERSUS  WATCH  CONTENT 
C ♦»»  AND  B 1.000  PLOWS 

COMMON  ASS! 11), ABSC. ALPHA. At (35.35) «A2( 35,35) »A3(15« 35) .81(35.35)  • 
lB*(l5.35),B3<15.35).eL(H).BL00D(35>.eB.C0Nt,C0N*.e0N(15,S5),CUT. 
*0<35,35)'0AH(2,2),OHf .OR.DT.DTX{*00),DPULBE.DPULSC{50).DTCMP.DZ. 
30«x»0l ,D*.0J.M,H*I»,HH(J5) ,MWf IB, JHP,II.tM**,IP,|PHOA.IW. JVAX.K.KT. 
•LA6CR ,LB*LMI ,LNJ,LH , LZ.m.mk , Ml *W],N,Nt , N3, N6.NGX  » WPG ( 30) «NPR(30) * 
SNPUL»E,NTP,NTX,NN,POW,POWER(*00) «P0*ERC(30) .POWX.PX(SO) ,R(S3) ,RB. 
BRCC tRCHCT .HIM. H6V. RN, RUNIC. RX (50) .0(35,35) .SHC.tNO.SHl.SHf ,TS( 11) , 
TTOfcRM.TC.TCHlO.TMd 1 ),T0C,TBHEAT,TTIMC,V(35,35) »VHC» VO (35.15) , 
BVSH(3S.35),watER(35.3S),m0,wi.m*,m3*XC,XH(200),Z(35),ZBL<ZDCH, 
«ZM,Zr,2n(10),ZZ,0BS*JH 
DIMENSION  CM(35), 00(35), «8(3S). ww(35) 

IC(K.CT,l)iO  TO  40 

C MM  BLOOD  CLOWS  AT  VARIOUS  BERTHS  Z(I) 

00  6 Ial,M3 
* BLOOD(I)»0. 

Ll*l 

XlwTttd) 

1*1 

' 7 IC(Z(1).LT.X1)60  TO  8 
L!*L1*1 

IP(L1.BT.LB)60  TO  « 

XlBXl.TB(Ll) 

GO  TO  T 

8 BLOODd)aBL(Ll) 

!•!*  1 

IC(I.LC.M)GO  TO  7 

c *>*•  DENSITIES  0D»  mater  content  MW,  NON-MATER  CONTENT  SB  AND  SHECICIC 
C **•  MEATS  CM  MITM  OR  WITHOUT  8wE*T 
G IC(TSWEAT,LT, ,0001)60  TO  *0 
01*00 


wi*wo 

*0  00  24  !■! ,M3 

IC().GT,1.0R.TSHEAT.GC.VEHI0)G0  to  *1 

D0(I)a((Od3.*O*)*TCHI0*TEHID^(B.*D1.2.*D*)*TEHID*T8WEAT4'(Ot.O3)* 

1T8MEAT*T8WEAT)/(«.*TERI0*(T8mEAT*TEHI0)) 

WM(I)a((Mltl.*Mj)*TERlD*TSRID+(B.*wi.2.*M*)*TEPID*T8weAd(Wl.M2)* 

1T8mEaT*T8WEAT)/(«,*TCRID*(TBWEAT»TEPI0)) 

GO  TO  23 

21  IC(Z(I),6T,T8ME4T.. 0001)60  TO  22 

WM ( I ) BMO 

OD(I)aDO 

S8(I)mD0.W0 

CH( I ) ■ (8H0*SS ( I ) ,W0 ) /DO 
60  TO  24 

22  IC(Z(1).GT.TSWCAT«TCPI0)B0  TO  SS 
Xl*(Z(X)-Taw|AT)/TEPID 
mw(I)bhi*xi*(W2.N|) 

00(I)a01«Xl*(D2-Dl) 

21  S8(X)S0D(I).WW(I) 

6H(l)aSHl*SH2*WM( I) /0D( I ) 

60  TO  24 

*S  IC(Z(I),6T,T8MEAT.TEPI0*T0ERM)60  TO  25 
HM(n*w2 
DD(I)a02 
S8(naD*«'H2 
CH(I)b8H1*8H**m2/D2 
60  TO  24 


BtSI  AVAILABLE  COW 
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BEST  AVAILABLE  COPY 


** 
C *** 
C M* 


as 

00(I}«OJ 
86 1 1 )*D)o«) 

CH( I)*tHi«|H2*w3/0S 
CONTI  i«ue 

ACitie#^  **1***1.  coNoucTivrriet 

00  13  I*t»HS 

*»u»n  # n*»*(n 

VlH(I,j)«CH(I)*OOf I) 

SoNi5  ’ 1,2?C0J^C0N***(«(  I ) zoom 

00  11  J*2'S] 

H*TER(ItJ)*Mt4(I) 

C0N(I,J)*C0N(I,n 

V8M(I«J)r,v»H(I*i; 

N«ITE(*tlfc)(CON(I, 

PONNAVdv-  ♦*HC0N*/(ix,8ZR,«)J 
t-VSHCI.  1 ) .1*1  ,MJ) 

RETUS^1 

ooJMTiJiSSIlv*T,ei  *N0  MtAT 

DO  4*  J*I.JM*X 

DDX*MTERU*J5*$0(I? 

ENO 


*N0  VOLURETRIC  HEAT  CAR* 


1? 

lf> 

10 

*«* 

40 


?on  HATER  toe* 
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............. SUMR DOT ISf  B A.. .............. 

c **•  bA  COMPUTES  MATRIX  elements  NEEDED  POP  TEMPERATURE  COMPUTATIONS 

COMMON  A8SU1)  .ABSC.  ALPHA.  At  ( 55*  33 ) . A 2 ( 35 « 15)  * A S ( 59 » J5’ . 0 1 < 35*  39 ) * 
102(15.55) .83(39.39} .bid  1) . BLOOD < 35) .C0.CON1 .CQN2.CON(35»  5? ) .CUT. 

20(15. J9)»DAM<2.2) .DMP.OP.nT.DTx(aOO) .D»UL8t .DPULSC(90) »OTE*P.DZ» 

100.01  ,D2.D>»M.HA|P,Hfl(i5)  .H».  IB.  IMP.  I I.  IMA*.  IP.  JPROP*  I*.  JMAX.K  ,K'(  , 
«LAbEW»LB*LMl.LNj«LP.L7.M,MK,HI . M-J.N.Nl . N3. NG . NSX . NPG ( JO ) . NPR ( 30 } . 
5NPUL8E.NTP,NT*.NM,POM.MrMEB(200) .POMESCtSO) .PCRX.PXfSO) *R(33)«R8» 
kREF.RePET.RiM.RGV«RN.»L!''IP»Ra<GO)  *8(15*35)  .ShP.SMO.SHl  *SH2.TB(  11)  • 
TTDEMM.TE.TEPiD.THn l) ,TDE»TSHEAT,TTTHg.L( J5.3S) .VMP.V0T35. 59). 

8VSm( 59.15) .«*>ER( 55.15) .HO. Ml t«2«M3. TC . XP (200 ) . Z ( 15) « ZBL . ZOfP . 
9iM,2il,2M(Ui>.Z2.PBS.J- 

01  MENS  I ON  Kftl(S5).XR2I35)*XR3(35)*XRJi(35)«XZ*<3*)<XZ2(35).XZl()  ' 
1XZ«(39) 

IPCP.GT.DSO  TO  12 
00  10  Ja2.N 

XiBR(J)-RCJ-n 

x2«m(ja:)*=«cj-i) 

XlBR(JkJ>.8<J) 

XR1(J)b-1./(R(J)* <2)*2./{X2*Xl) 

XR2(J)b»1./(X2*X2) 

XH3CJ)b2./C<2*X3  >+2./(X2«Xl) 

10  XRR(J)*l«/(R(J3*X2)  + 2.,/(X2*X3) 

00  11  1*2. M 

XiaZ(n-Z(I-l) 

X2aZ(i«u«Z(X»l) 

XSaZ(lTl)MZCI) 

X7.1  ( 1 )k2./(X2*X1  ) 

XZ2(I)a.l./(X2*X2) 

PZ3(I)a2,<-(X2*X3)*2,/(X20Xl) 

11  X£R(I)a2v/(X2*X3) 

12  L1*IMAXM 
LZ-AJHA1-.1 

00  23  Ja 1 « L2 

IP(J.LT.JW,AN0.Im,£0.2)G0  TO  19 
Alll.JJaO, 

82(1 . J)a (CCN( 1 . J) aC0N(2. J) ) / (OZ*0Z ) AH/OTTPLOODt 1 ) *CP/2» 

Alt  1 • J)  • (CCN(  1 . J ) Al'0N(2.  J)  ) / (DZ*OZ) 

19  00  23  laZ.tl 

IPCJ.lT.JH.ANO.lN.EO.lN.nGO  TO  23 
IP(J.IT.JM.ANO.IW.EQ.!W)0O  TO  23 
Ai(i.j)accNa.j)*xzi(nA(eoN(iAi»j)»coNoi.j))axz2(n 
*2(j.J)aCON(I.J)*XZ3(I)A0LOOO(I>ae;/2. 

AJ(I.J)aCON(I,J)RXZ^( Z)-(C0N(IA1. J)-C0N(I«1.J))*XZ2(I) 

23  CONTINUE 
00  25  1*1. tl 
31(1. I)a0, 

82(1(1 )*(Cl)N( I «2)+C0N( I » 1 ) )/<S(2) *R(2) )ABL000(I)9C9/2* 

83(1.1)  a (Cl)N(  1 .2)tC0N(  X«t)}/(R(2)*R(2)) 

DO  25  JB2.L2 

01(I.J)*CON(I.J)*XR1(J)*(CON(I.J*1)»CON(I,J-1))*XR2(J) 

02(I.4)aCON(l.J)»XR3(J)98LOOO(I)*CB/2, 

R3(I.J)aCONU.^)»XR«(J)-(CON(I.J*l)-CON(I.J-l))*XR2(J) 

21  CONTINUE 
, DO  2k  JB1.L2 
29  82(I.J)a02(l.J)kH/OZ 
RETURN 
KNO 

BESTAVAIOBLE  COPY 
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BBQVAILABLE  COPY 


— — -—-—SUBROUTINE  HTOEP— — — 

C HTOEP  COMPUTES  RATES  OP  ENERGY  DEPOSITION  AT  EACH  OPID  POINT  PEP 
C UNIT  VOLUME  OP  TISSUE 

COMMON  ASSUl)  .A0SC* ALPHA.  AXIS' 39)  . A2 (35* 35) . AS ( 35 * AS) 1 81 ( 35* IS) • 
1 *2(35*35) *B3(35*3S)*BL(lt) . BLOOD ( 35) *C8*C0N1 *eON2.CON(*5*3S) *CUT. 
2D(3S«35) *0AM(2*2) *OHP *DR.DT*OTx(200) iDPULSE *DPUL8C(50> *DTEMP»OZ* 
3D0*01 *D2*DI»M,HAXR*HR(35) *MN»If}* IMP.II.IMAX*XP.XPROP*XN* JMAX*K*KT» 
«LASEN,LB.LMI»LNJtLR*U*H,MKtM?  ,MJtN.Nl  * N3 * NG * NGX * NPG ( 30 ) *NPR(30)  t 
5NPUL8E * NTP * NT X*NH«POW* POWER (200) * POWERS (SO) *POwX*PX (50) *R (35) »RS* 
PREP  •REPET»RIM«RGV*RN.RUNIF*R't(50)  *8(35*35) *8HP*8H0* 8H1 * 8H2* T8( 1 1 ) « 
7TDEHM * TE* TEPID* TM( 1 1 ) * TOE  * TONE AT*TT INE* V(S5*35) »VMP. VO( 35*35) * 
»VSNC35*3S)*WATCR(35.33).wO.Wl*w2.W3.Xe*XP(200)*Z(S3)*Z8L*Z0EP* 
4ZM*ZH,zw(lQ).ZZ*DS3«Jw 
DIMENSION  IE(ll)*IZ(3P)«ZP(ll)*ZH(3P) 

REAL  IE#IZ 
IF(k.GT.1)GO  TO  32 
00  4 lal.M 
IZ(I)aO. 

00  “ jal*N 
« 8(I*J)a0. 

00  5 lal*M 

S ZMtI)a(Z(I)*Z(I*l))/2. 
lEtlJal, 

ZEUJaO. 

LIPLZM 
DO  12  La2*Ll 

IE(L)BlE(L-l)*EXP(«AH8(L-l)*TH(L-t)) 

IP(IE(L).LT.l.E-10)IE(L)a0. 

12  ZE(L)aZC{L-l)»TH(L-l J 
XZ(l)al. 

Lai 
LX«1  . 

14  IPCZM(LX),LT.ZE(LAl)100  TO  1* 

L«L>  1 
SO  TO  14 

IP  IZ(LXM)aIE(L)*EXP(-AB8CL)*(ZN(LX)«7E(L))) 

LXaLXA 1 

IP(LX.LC.M.AN0.1Z(LX),GT,1.C-10)60  TO  t« 

00  20  Ial*LX 
X2bZm(1) 

XF(X*GT«1)X2pZH(X)*ZH(I*1) 

X3a(IZ(l)"IZ(lAl))/X2 
00  20  jal *N 
20  8(1* J)aX3*MR( J) 

I P ( I HP , EQ • 0 ) GO  TO  54 
00  22  XaXHP.M 
22  8(l*l)a0, 

8(XMP,l)aMHa)PIZ(IHP)/SMr 
GO  TO  54 

C ADJUST  8(I»J)  PON  CHANGES  IN  ABSORPTIVITY 
32  LXXa«HAXl(LX*LMI) 

DO  42  jal.LNJ 


t 
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I 


00  14  I«I1 «l*K 
14  8 ( I • J ) *0 , 

K0«12(l!) 

11**1. 

DO  36  X*I!*L"1 
IF(XO,LT,l,E-lO)GO  TO  36 
X2*Zh(1) 

irci,GT,nx**ZH<i  WHti-n 
*l*x**ll(lfl) 

lX(dU,J).Se.t.)Xl*X0*EXI*<-*8«C*X2) 
if(*i.lt.i ,e-ioixi*o. 

XX*X1/IZ(!+1) 

»(i«j)*HR(j)*(xo**n/x2 

IF(J.E0.1.*ND,I.£Q,IMnxS*MR(l)*X0/8HF 

XO*Xl 

16  CONTINUE 
L1"LM1+1 

IFUl.GT.LXXJGO  TO  42 
00  17  I*L1 tLXX 
IX(XO.LT.1.C-10)GO  TO  ST 
X1*XX*IZ(I*1) 

IF(X1.LT.I,E-10)X1*0. 

8(I*J)*MR<  J)*  (X0-X1 ) /(ZH(t)-ZM(I-m 
IE(J.Ea,l.*N0.X.EQ,XHF)X3*H»ni*X0/8HF 
' X0*X1 

37  CONTINUE 
•2  CONTINUE 

IF ( IMF , EQ , 0 ) GO  TO  54 
DO  44  I*lHF »M 

4«  a(i*n*o. 

8(IHF,n*X3 
34  RETURN 

in;- 


best  available  copy 
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BIOVAIIABLE  COPY 

8U8H0UT  TFMP.----— 

c m*  rent*  compuie*  temperatures  at  each  grid  point  allowing  pop  evapor- 

c • ATION  OP  NATfP 

COMMON  At)S( 1 1) *ABSC* ALPHA* A J (39«35) *A2 (55. 3S) »A3()S«3S) *91 (39*39)  • 
102(35ilS).'B3(35«35)tBl(ll) * BLOOD ( 35) t CBiCONl i C0N2«C0N( 39*  3S) t CUT  * 
20<35.';9)  .OAM(8,?),DMP.OP.OT,OTXC20  0).DPUL8E»OPUL«CC»0)  *DTEMP*DZ» 
3OO*Dl*0,J«Ol*H*HAIStHH(35)*HN*IB*INP*II»IMAX*IP*  IPPOP  *IR*JMAX»X»KT* 
«tA8.tP*t8*LMl«LNJ»LP»LltH,MK.Ml»NJfN*NliNJ.N8»NG*»NPS<10)»NPP(10)» 
5NPULSE*  NTP* NTX*np* PON«POWER<200) aRONERC (SO) *POPX*PX(50) *R(35) tR8* 
6REP*REPET*N!H*R6V,RN*RUNIP«RX( 50) *8(35*35) *8MP * 8M0»8*1» *8H2*TB( 1 l > • 
7TOE«M.TI* TEPID *TH(li)*TOE*T8*EAT*TTIME*V(3S*3S> • VHP* VO( 35*35) * 
8V8n(35*3S) *NAT£R( 35.35) • WO* WJ*«2*N3*xe*XP(200)*Z(3S)*Z8l*ZDfP* 
9ZM*ZR*ZW(IO)*ZZ*OP5»JW 

DIMENSION  CXC(35).DXC(35) »P*C(3S) *CXR(S5) *DXR(3S> *PXR(3S) ♦ JM(35> * 
US*  (39*  35).  8*  (35. 35) » VS (35* 39) ♦ VXX (35* 35) *ZSM(3S*3S) 

XMAXpO 

JMAXPO 

IPCA.GT.DflO  TO  3 
IKmiNWb 1 
DO  2 I«1»h 

JH(l)aO 
DO  2 JP 1 * N 
J8W(I.J)P0 

2 >M(I«J)pO. 

XNPlOO.-TE 

VMPpToe 

3 00  A IpI.M 
DO  A Jp  t » N 

A VO(I.J)PVCI.J) 

KMPO 

C COLUMNS  (NORM AU) 

9 00  AS  I P I » M 
DO  A4  Jp  t « N 
Np2.*VSH(I,J)/0T 
PXS (J)pA+62( I » J) 

IP(J.GT,»)PPC(J)PPXC(J)+»I(I*J)*CXC(J-l) 

CXC(J)P-8)(I«J)/PXC(J) 

8UMp(n.A2(I<  J))*V(I.J)tAJ(I,J)*vnH*J)AP0N*l(I*J)-8N(I*J) 
IP(ItGTal) BUM* SUM* A 1 (I.J)*V(X»1*J) 

IP(J.EQ.N)8UNpBUM*BS(1*J)*T0E 

DXC(J)p8UM/PXC(J) 

IP(J.GT.I)0XC(J)p(8UH*B1 (I»J)*DXC( J-I))/PXC(J) 

AA  CONTINUE 
VXpO, 

DO  AS  LPitN 
JPNM-l 

VXPOXC< J)»C*C< J)«VX 
AS  VXX(I«J)PVX 
c *•*  R0N8(N0PNAL,)»— 

00  SO  JPlfN 
00  A8  J p 1 • M 
NP2.PV8H(I.J)/0T 
PXN(I)PN+A2(I.J) 

IP(I.GT.nFXH(X)BPXR(I)*Al(I*J)*GXR(X»l? 

CXH(I)P«A3(I*J)/PXP<I) 

8UMP(«.B2(I*.»)*VXX(I.J)*P3(X*J)PVXX(I*JfJ  )AP0P*8(I*J)«8A(If  J) 
IP(J.GT.l)8UMP8UM*«i (I* J)*VXX(I* J-l) 

IPCI.E8,n>8UNP8U«aA3CI. J)*TOE 


um(n«su*/F»«u) 

«e  coNTjMjt 

vxao, 

oo  bo  l*i»m 

l«"M-L 

VXAI)xB(T)»CXHU)»VX 
IF  CVx.LT.TOt JVxaTOE 
tFll,GE,IP,OH.*<.,GT,0)GO  TO  SO 
C • 5 T E A M ESCAPES 

IMvE.LT.X*.UH.*>ATE»(I.J).LT..OOOt)GO  TO  SO 
jha««ama*HI^a*,1) 

IFl J.OT.JM(  I) ) JH(T)«J 
SO  y(I«J)aVX 

IF l 1NAX .to. 0)60  To  OO 


1 

IFIKk.GT.UGU  TO  52 

L*«1n»X 

00  Si  1*1  • LX 

00  Si  Ja 1 • L 1 

I F ( S ( I » J ) .GT  , ( v ( 1, J).XN)*VS*<1« J)/OT) JSH( t t J)al 


C 


C 


51  COHII  >UE 

52  IF  l * n . GT „ Nw ) GO  TO  <ii 
00  «>0  I ■ 1 . L * 

I) 

00  «U  Ja 1 < L 1 

IF(AAtgB(I,J).LT..OOnGO  TO  SO 

Xl*(V(I»J)«»aJ*vsmi.jj/OT 

X2«SJP.A»*TEHn.4)/nT 


XjaSa(I.J) 

IF (*w.EG, 1 .OK.Kn.GE , I*H)GO  TO  5S 
xOavsn.JT-VtlfJ) 

IFCJS<( I • J) .tO,0,nR,X0**0 ,UT . 1 , )60  TO  55 
XUBla<Kw)*lv(I«Jl'XW)»ESaU»J)/(VSCT»J)»VU»J)J 
IF  C XJ*X«,Ll  ,xn**»  • i 
GO  To  ST 
SS  XUFZ* ( K* ) *x 1 
ST  S*11»J)bxJaX« 

IFlSa(I»J).LT.O,)Sa(I«J)aO. 

IF(Sa(l.J),GT,X2)SP(I»J)**i 

13*(I«J)»S*.(I«J)"X3 

VSUiJ)aV(l.J) 

so  continue 

00  t>i  Ial.N 


00  *>2  Ja  1 • N 
62  V < I • J)aVO< I • J) 

60  TO  9 

«**  CONNECT  F0«  EFFECTS  of  gates  loss 

6)  00  65  lal  «LX 
Lt«JM(I) 

00  bU  J« 1 » L 1 . ... 

a aTEN( 1 1 J) •* A TER ( I • J)*8“( I t J)*DT/5J9, 
IFfXATERUt  J).LT..OOO*ATEH<I*  J)*0. 


JSatl.JjaO 
bU  $n(  1 1 J)aO, 

JH( I)«0 

65  JHAXaAMAXl lJHAX.Lt ) 

IF(NGX,|G,0,0«,LASEP.EU.2)60  TO  90 
I F (POWfc M (*♦ t ) .GT .1 «E«  1 0)60  TO  90  , 

* HE6ET  TO  SINGLE  NON»C00E0  PULSES  TO  HANDLE  NATt®  LOSS 

Ll«TTIHE*«fcPtT+l . 


BECAVAIIABLE  COPT 
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BESTJffilQBLE  COPY 

XO«Sma 

* (OR.Ul *10) 

OUaZBax  1*4  1 /Alpha 

L 1 ** • 1 
OC  7 l 

t*0*t*U2>«0. 

ti  XB(L2)al, 

XX<ai,/»£pkT-OPULSE 

XX*axx2/(XCAi,) 

* * (>■  *LOG  { X C ) 

l»Kax 

7“  I F l , LT« 1 ) Gy  TO  Hi 
XC«LK 

IX  I XXII.GT  .DTOJGO  TO  70 

L**LH*  1 

0TX(LK)axX9 

LK9LKM 

0TA(L«)BXX2-XXU 

GO  TO  79  ~ 

?6  Ll«AL0G<XX2*XXb/UT0*l.)/XX6M, 

OT2«XXa*XX5/IXC*«LI»l,) 

L2*LX*J 
L3*LK*L1 
00  70  LK*L2»L3 
UTX(LK)«yTi 
70  OTi«XC*OTa 
L*«13 

79  DTy«ZZ*OTO 
^P«yplit5E/0T0 
IFCNP.LT,2)NP«2 
XXl«DPUt#E/NP 
L2«L*M 
L3«t-X*NP 
DO  LX*L2»L J 

DT*(IK)9XXI 

00  PO*fcR(UX JaPOaX 
L*»13 
KPanp.j 

IX(2*IK*nTX-X0«LT.MK)G0  TO  7« 

*B  l T£  ( 0*01  ) HP  • 

01  XO**AT(lH  , OfcHNUMB£9  OX  PULSES  TREATED  LESS  THAN  NPULSi*  KMiIJ) 

0<i  L?«LKM 

L3*LKANTX 
DO  »«  LK«L2*L3 
OTMUOaDTU 
09  OTU«XC*OT 0 
KTauj 
NGxao 

c a**  AS0ES8  h Ax  I HUH  TEMPERATURES  ACHIEVED,  R8VTANV  LOCATION) • R8(8UP|R- 
C a**  HtATEO  *ATCW) » AND  VMX(MAIB  FOLLICLE) 

90  DO  92  Ial »M 
DO  92  Jal.Nl 

IF(V(I*J),GT.R6V)R6V9V(I,J) 

IXU.LT, IP, oh, V(I»J),LT,XPT);o  TO  92 
C * STEAM  CONTAINED 

IX(N0.GT,V(I*J))GO  TO  92  ' 

1H«I 
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va  coNtiNut 

IK lH»,5T,0) VHF«A"M1 (VNFfV(lHr.l)  > 

KttUHN 

(NO 
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...........  — IUHMOUT  INI  DAMAGE—— — 

c •••  damage  computes  cummulattve  thermal  damage  at  iacm  grio  point 

COMMON  ASSUD.ASSC.  ALPHA.  A1  (IS.  S«).A»(SS.1S).  ASCII.  3«)»Ot(lG*St). 
1B2(SS.SS)  • BS<  55 .18 ) lOUl  1).8L000( ID. Ci»CON|.eON*»CON( >«.»*). CUT. 
20(15<SS) *0AM(2«2) .OMp.OR.DT .DTX (200) .DPUL8E.DPUL6C (10) .DTtMP.DZ. 
100.01 .02.01. H. HA  IP. HR ( |0) »HH. 10. XHP .II. IRAK. |P» IPROP  t IN* JPARtNf NT  * 
4L ASER.L8.LMl «LNj  «LR  tLZ.M.MK .Ml .Ml.N.Nl .NS.N6.N6X  «NPO (SO) »NPR(50) ♦ 
IMPULSE  *NTP*  NT  X»N«««  PON.  POhERI  200) .POM|BC(50)«PONX.PX(SO)«R(Sf) »R0» 
ARCP.RtPfT.RIH.RGV.RN.RgNlP.RX (SO). 1(18. 19) .SMP.SHO.SMl *SH2«TS( ID . 
TTOt*H.Tt. T|P10. TH(tl).TOE*TSNEAT.TTXNf*V(l|*Sf) .VHP. VO (11. 11) . 
8V8HCls.l*),HATtR<S*.**).HO.H|.H2.Nl.XC.*P<tOO)»2CI*).m.lO*P. 
8|H.|N.|N(10)*II.OH5.JN 
DO  A LRR.PT 

IP (PONfp(L) »GT« 1 «t«10) KTObL 
« CONTlNUt 

IPCP.GT , 1 ‘ GO  TO  A 
JNRl 

ZClROAM(l.l) 

Zti>0AM(1.2) 

zciROAHci.n 

Zt2R0AH(2.2) 

XORA«,.TC 
A LHJRO 

LNjao 

XP(XP(K).LT..S)QO  TO  28 
LLRO 

IP(P.LC.KT0)LLR1 

C RP*  CVALUATE  I.J  INDICES  AT  HHXCH  THfRMAL  DAMAGE  TO  OCCURRXNO 
IDRO 
JORO 

DO  12  Xat.M 
DO  12  jal.N 

IP(V(l.J),LT.XD)CO  TO  12 
XORI 

JO* AH AX 1 ( jd. J) 

IS  CONTINUE 

C RRR  REVISE  MATRIX  ELEMENTS  IP  BLX8TER  PORMS  AT  VARIOUS  R1J) 
lal* 

L I ■ Jh 

DO  14  Jr Jm . N 

IP( V ( I* JJRTE.LT .OTEMP) 60  TO  1* 

IP1Im,GT.2)00  TO  IS 

A2( 1 » J)rCHR2«RHN)/DZR8L000( 1 )*C8/2. 

ASCI . J)n2. RHN/DZ 
a1(2.J)r2,rmh/Z(3) 

A2(2.J)r2,RHm/Z(1).(CON(2.J)RCON(S.J))/(Z(1)R(Z(S)-Z(2)))RSLOOO(2) 

IRCB/2, 

AS(2.J)r(C0N(2. J).CON(S.J) )/(Z(S)R(Z(l)«Z(2)l) 

LlRJtl 
GO  TO  1« 

IS  Al(X-i.j)R2,ReON(l-l*Jj/((Z(!).Z(I>E)>R<Z(X»l)-!(X«t>>) 

A2(1>1. J)R2.*C0N(l>t •J)/((Z(I)«Z(I*8))R(Z(1*1)«Z(X*2)))R»L00D(X*I) 
lRCB/2.R2.*HH/(Z(Il-Z(I-2)) 

AS(  1-1 . J)«2.*HN/(Z(  n-Z(I»2)  ) 

A1(I.J)r2.RHm/(Z11R1)-Z(I-1)) 

A2(I.J)R2,*C0N(I.J)/((Z(I.n-Z(I.l) )*(l(I.l).x(I))).»L000(I)RC8/2. 
lR<.RHM/(Z(IRt)«Z(!«l)) 

AS(I.J)i2.RC0N{I.J)/((Z(lRl)-Z(I-l))R(Zn*lI-2(n)) 

IIPJRI 
18  CONTINUE 
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J««U 

IKIO.LT.  11)60  TO  20 

C •••  EVALUATE  ThIRNAL  IT  tiCn  OHIO  POINT  OP  LIVE  TIOOUEO 

00  <2  1 • X X • X 0 
DO  22  J«1  • JO 

Ki«.l«(V(ltJ)PV0(!*J))4T| 

imm.lt, a*. j»o  TO  22 

XE(M.LT.SQ.)X2aZei-Ztt/(lt42?l.} 

lM«l.S(.10.)UtICHtI/()ltim.) 

XMK2.6T.40.>l2a»0. 

KiaxP(K)*DT*EKP(Xt) 

1KLL.EQ,  t )60  TO  10 

IKDCIiJJ.LT. 1 . .AND .IS. IT . .OS) LLal 
20  0(l*J)a0( I ♦ J) 4*5 

IKD(I,J>.8V.l.t4*0>0(I*J>al.t4*0 
XKD(X.J) ,6R.I,)L*MaA"AM(LNI*I) 

IKDi  I • J) .6E. 1 ,)LNJa*n**l (LNJ* J5 
22  CONTINUE 

XP(LL.CO.O.*NO.K.6T.KT*NTM4«)KTaK 

a*lTE(fc.aa)LNI»LNJ.IO.JO 

2«  EONMATUH  tSHLHja . U.lX.iHLNJa. H.ax, JhIO«* I J* JXtlHjOa. I J) 
10  RETURN 
■NO 


BBOVMUBU  COPT 
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OAT A CARDBf Of T 1'OInCIE  RURV  RULSI) 


• • 

••••OATA  CARO 

NUMBER 

!•••••. 

3 

1 ,33«*  !,)M 

2.2*1 

0.3*1 

4,3*1 

>.•1 

».*1 

• 

•■••DATA  CARO 

NUMBER 

,03*0 

3.-1 

1,01*0  O.B-t 

1 ,21*2 

*••3 

1.31*2 

!#♦• 

2,-2 

m 

■•••DATA  CARO 

NUMBER 

.0133 

.OOTO 

3.0 

• 

••••data  card 

NUMBER 

t.o 

0. 

.oil*  0, 

0. 

.0000 

,0121  , 1 f TO 

ST . 

22. 

,000 

m 

••••OATA  CARO 

NUMBER 

1*0, 

30000, 

2*2,  00000, 

• 

. 

100,0 

1 10,0 

132.0  1*2,0 

131,1 

130, « 

100.2 

100.3 

IT*. 3 

1TO.0 

1*1.2 

1BT.1 

1O0.T  1 R* , 1 

10?,* 

200,* 

203.0 

200.1 

200,0 

211.0 

213.0 

210,2 

210.3  220, R 

■••oftiTi  run 

222.0 

213,0 

22T.0 

3 

1.2*1 

2.0-A  T.OaA 

o.*o 

O.e.l 

.0*0 

,1*20 

3.0 

IT. 

T. 

10. 

« 1 

1 

too 

.IT 

.133 

3 13 

• 

••••DATA  CARD 

NUMBER 

1 3—— 

• ORA 

1.30 

.3  1.00 

1 

1 

0 

20 

•■••■••••••••OAT A CARO  NUMBER  1 4 i NC • I »■■••»«••••■ 

20  5,-u  }.l«0 


•••••••••••••DATA  CARO  NUMBER  1 *•-•••••••••••••••- 

is 

••••■•••••••■DATA  CARO  NUMBER  1 

I ? J 7 1 0 1 

.•.■•.DATA  CARO  NUMBER  t ?*•••••■••••••••••• 

0, *o 

•••••••••••••OAT A CARO  NUMBER  1 #•••••••••••••••••• 

1. *2 

•••••••••••••oat a caro  number  {«■•••••■••■■■•••••• 

A 1,0*0  1.0*0  1.0*0  1,0*0 

•••■••..•••••OATA  CARO  NUMBER  tO*************^**** 

1 ••!  1,0*0  1.0*«  «.0*2 


1,0 


•XWT.P  E.-MN4 


Zaa  1.00  1.00  1.00  1.09 

DA la  .1000*09  .1000*1  .1000*05  ,4000*3 

OT*a 

.250-04 

.250-04 

.250-04 

.250-04 

•250-0* 

.250-0* 

.250-0* 

.250-0* 

.250-04 

. 250-C* 

.250-0« 

.250-09 

.250-04 

.250-04 

.250-04 

,250-0* 

.250-04 

.250-04 

.250-04 

.250-0* 

a 334-01 

.*17-01 

•5*0-01 

.714-01 

.4*0-01 

.125*00 

.1*2*00 

.211*00 

.27**00 

.357*00 

.404*00 

.*03*00 

.703*00 

.102*01 

.132*01 

•172*01 

.224*01 

.241*01 

.370*01 

.*42*01 

PO«ER* 

.344*04 

.340*04 

.340*04 

.300*08 

.3*6*0* 

,3*0*04 

.340*0* 

.3*0*04 

,340*04 

,340*04 

.340*04 

.348*0* 

•348*0* 

.3*0*04 

,1*0*04 

,3*0*0* 

.340*44 

.340*04 

.348*04 

,340*0# 

• 000 

.000 

.000 

.000 

,000 

.000 

.000 

.000 

• 000 

.000 

.000 

.000 

.000 

• COO 

.000 

.000 

.000 

.000 

.000 

-000 

X84 

1. 

1. 

1. 

1, 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

>! 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

i. 

1. 

1. 

1. 

1. 

1. 

8a 

.0000 

1. 

1. 

t. 

1. 

1. 

1. 

t. 

.0340 

.0*00 

.1020 

.13*0 

.1700 

.2040 

.2380 

.2720 

.30*0 

.1400 

.S7«C 

,4010 

.4420 

,*7*0 

.5100 

2a 

.0000 

.0121 

.0301 

.05*4 

.04*7 

.15*0 

.2**2 

.1753 

.5705  .0408 

81684a  .170*00 

1.2427 

1.4151 

2.6412 

4.3113 

4.4204 

4,57*1 

MRS 

.211*01 

.145*01 

.133*01 

.103*01 

,565*00 

.2*5*00 

.116*00 

•«1*-01 

.125-01 

.321-02 

.704-03 

.130-03 

,20*-0* 

.274-05 

.320-0* 

*0»Ca 

12,  *008* 

10, 

CS*  1.000  C081S 

.00013 

C0N2a  ,0013* 

OOa  1,050 

01*  ,500  02*  1 

,030  03* 

.480  OEPIDa  .0060 

HA1M8 

.00  REP* 

.*0 

180*  .2200  0H1* 

.3700  8H2*  .4300 

TOf880  . 

1774  TE* 

22.  TCPI04  .0121  TO* 

17.  TOMIAT*  ,C„00 

80*  .450 

XC*  1.300 

81*  .200  8 2a 

ZOEPa  ,00*  ZP* 

.000  Ml* 
.5  ZZ« 

,050  MAWELM  .*4* 

1.00 

IPRorsi 

M»UL«a 

LASER*!  LB*  3 LZa  3 8*15 

1 KCXaO  NtxaZO 

Nla-  5 

Mal5  81a 

1 

ZBL*  .121*01  Maa  .000-02  DTIHPa  ill.  OMFa  .100003 
SHM  .200-01 

CUT#  .1350  DIMS  .1700 

DPUL8E*  .500-03  8TPa20  POMX*  ,140*0# 

XOla  i 102a  7 ITYPE*  1 JDla  1 J02a  7 MTVPEaO 
TJHE1-28 
.000  .100003 

TMO 

.0*00  .1820  3.0000 

*68* 

17.  7.  10. 

TB* 

-0135  .0870  3.0000 

■L« 

xOOOO  .0116  .0000 

6*P(1,1)*  1*4,0  0*8(1.21850000,  D*M(],l)a  242.0  0*8(2,2)4*0000. 


ffi SI.AVMVABtt  COPV 
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OHM 

.OJ«0  KM  ,uOM 

r>za  . 

0121  Z*a  9,5763  96*  0 

CO** 

.0011 

.0012 

.0012 

.0012 

.0012 

.0012 

.0002 

.0002 

,<U0O2 

.0002 

.0002 

.0002 

.0002 

.0002 

.0002 

.0002 

V 8 

.7«16 

.005 1 

.8851 

.8051 

.0051 

.8051 

.3981 

.3901 

.J9«t 

• J9«l 

,3991 

.3901 

.3681 

.3981 

,1901 

.3981 

HC4T 

Oe*»<J81TIOV  RAUSa 

mm  m 

»• 

.0000 

.03*0 

.0680 

.1020 

.1360 

.1700  . 

2080 

/* 

.0000 

.3*1*02  . 

31«*02 

,2*7*02 

.166*02 

.006*01  . 

860*01  .191*01 

Zb 

.out 

.205*02  . 

263*02 

.207*02 

.139*02 

.792*01  . 

385*01  .160*01 

Z« 

.0101 

.200*02  . 

192*02 

.151*02 

.101*02 

,578*01  . 

281*01  .117*01 

Za 

.05*9 

,710*01  . 

678*01 

.533*01 
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.0720 

.000 

,000  ,000 

.000 

,000 

000 

.000 

Zs 

.0910 

.000 

.000  .000 

,000 

.000 

000 

,000 

OTs 

.100-01 

TTmBb  , 

1000-01  SOMERS 

,600401 

«PS  1. 

IMAXB13  JMAXslS 

.oooo 

.0766  .1538 

.8298 

.3066 

.3830 

.4596 

Zs 

.0000 

12.0 

11.0  9,0 

6.0 

3.6 

1.7 

.7 

Zs 

.0181 

.5 

.5  .o 

.3 

.1 

.1 

.0 

Zs 

.0253 

.0 

• 0 *0 

.0 

.0 

.0 

.0 

Zs 

.0397 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Zs 

.0553 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Zs 

.0780 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Z« 

.0910 

.0 

.0  .0 

.0 

.0 

.0 

.0 

OTs 

.100-01 

TIMEb  . 

8000-01  POWERS 

,600401 

*Pa  1, 

IMAXS 

0 JMAXB  0 

.0000 

,0766  .1538 

.2898 

.3066 

.3830 

,4596 

ZB 

.0000 

82.6 

20.8  16.0 

11.0 

6.3 

3.0 

1.3 

ZS 

.0181 

1.9 

1.7  1.0 

.9 

.5 

.3 

.1 

Zs 

.0251 

.1 

.1  .1 

.0 

.0 

.0 

.0 

ZB 

.0397 

.0 

.0  .0 

.0 

.0 

.6 

.0 

ZB 

.0553 

.0 

.0  .0 

.0 

.0 

.0 

.0 

ZB 

.0780 

.( 

.0  .0 

.0 

.0 

,0 

.0 

Z* 

.0910 

.0 

.0  .0 

.0 

.0 

.0 

.0 

OTs 

.130-01 

times  , 

3300-01  POWERS 

,000 

XPs  1. 

IMAXS 

0 JMAXB  0 

.0000 

.0766  ,1532 

.2298 

,3066 

.3830 

,4596 

Zs 

.0000 

17.7 

16.3  12.9 

8.6 

6.9 

2.6 

1.0 

ZB 

.0121 

1.6 

3.3  2.6 

1.7 

1.0 

.5 

.2 

ZS 

.0253 

.3 

.3  .2 

.2 

.1 

.0 

.0 

Zb 

.0397 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Z« 

.0553 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Zs 

.0720 

• 0 

• 0 .0 

.0 

.0 

.0 

,0 

Z« 

.0910 

.0 

.0  .0 

.0 

.0 

.0 

.0 
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OT*  ,170-0! 

Tinea  . 

3000-01 . 

BOaEM 

,000 

XB*  l. 

IRAX* 

0 

JRAX* 

0 

9a 

,0000 

.0744 

.1532 

.2248 

.5044 

.3830 

, 

*344 

{a  ,0000 

15.4 

12.3 

4.8 

4.4 

3.8 

1.8 

.7 

2*  .0121 

«.7 

4,4 

3.4 

2.3 

1.3 

.4 

.3 

Z*  .02*5 

.7 

.7 

.5 

.3 

.2 

.1 

.0 

Za  ,0347 

.1 

.1 

.0 

.0 

.0 

.0 

.0 

Z*  .0111 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

Za  .072* 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

Za  ,0*io 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

or*  ,25t-ot 

Tinea  , 

7504-01 

BOnERa 

,240*01 

XBa  0. 

m*x* 

0 

JHAXa 

Ota  ,Jia-oi 

Tinea  . 

1074*00 

BOnf 

.240*01 

XB*  0, 

mxxa 

0 

JHAXB 

Ota  ,«2<«-01 

Tinea  , 

1500*00 

BOnEHa 

.240*01 

XB*  0, 

in*x* 

0 

jHtxa 

OT*  .100-01 

Tinea  , 

1400*00 

BCIHER* 

,400*01 

XB*  0. 

Ihax* 

0 

JHAXB 

OTa  ,100-01 

Tinea  . 

1700*00 

BOMERa 

.400*01 

XBa  0, 

IHAX* 

0 

jHAXa 

DT«  .150-01 

Tinea  . 

1 >30*00 

BOnfRa 

.000 

XB*  0, 

ihax* 

0 

JHAXB 

0T»  ,170-01 

Tinea  . 

2000*00 

BOBER* 

.000 

XBa  0, 

ihax* 

0 

JHAXa 

OT*  .100-01 

Tinea  . 

2100*00 

BOBER* 

.400*01 

XBa  7, 

in*xa 

0 

JHAXB 

LNXa  0 LNja 

0 ioa  5 JO* 

5 

bb 

.0000 

.0744 

.1532 

.22*8 

,3044 

.3830 

. 

*844 

Z»  .0000 

«4.1 

40,4 

51.4 

21.4 

12.2 

3.4 

2.8 

Za  .0121 

20.2 

18.4 

14,4 

4.8 

3.4 

2.7 

1.1 

Za  .0255 

7.4 

7.0 

5.3 

3.7 

2.1 

1.0 

.4 

Za  .0507 

2.2 

2.0 

1.4 

i.O 

.4 

.1 

.1 

Za  .0555 

.5 

.4 

.3 

.2 

.1 

.0 

.0 

Za  .0724 

.1 

.1 

.0 

.0 

.0 

.0 

.0 

Za  .0410 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

OT*  .100-01 

TinEa  , 

2200*00 

BOBER* 

,400*01 

XBa  7, 

IH4X* 

0 

JHAXa 

0 

IH1*  o LNJa 

0 IDa  3 JO* 

4 

Ba 

,0000 

.0744 

.1332 

.2248 

.3044 

.3830 

, 

4144 

Z«  .0000 

31,4 

. 47,8 

. 37.4 

23.2 

14,4 

7.0 

2.4 

Za  .0121 

21.5 

,4,8 

j t 13.4 

10.5 

4.0 

2.4 

1.2 

Za  ,0255 

4.2 

7,5 

f U.4 

4.0 

2.3 

1.1 

.4 

Za  .05«7 

2.4 

2,2 

i 1.7 

1.2 

.4 

.3 

.1 

Za  .0553 

.5 

.5 

.4 

.2 

.1 

.0 

.0 

Za  .072« 

.1 

.1 

.0 

.0 

.0 

.0 

.0 

Za  .0410 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

OT*  ,150-01 

tinea  . 

2350*00 

BOBER* 

,000 

XBa  7. 

ihax* 

0 

JHAXa 

0 

L*|a  o LNja 

0 ID*  3 JO* 

3 

Ra 

.0000 

.0744 

.1332 

.2241 

,3044 

.3830 

, 

4144 

Za  .0000 

44,4 

41.1 

32.4 

21,7 

12.4 

4,0 

2.5 

Za  ,0121 

25.0 

21.1 

14.4 

11.2 

4.4 

3.1 

1.3 

Za  .0255 

0.4 

8.2 

4,5 

4.3 

2.3 

1.2 

.3 

Z«  *0597 

2.7 

2.3 

2.0 

1.3 

.7 

.3 

,1 

Za  .0555 

, 4 

• 6 

.4 

.3 

.2 

.1 

.0 

Za  ,0724 

.1 

.1 

.1 

.0 

.0 

.0 

.0 

Za  ,0410 

.0 

.0 

.0 

.0 

.0 

.0 

.0 
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OTa  .170-01 

TlMfa  ,2500400 

POnlRa 

,000 

t»a  7, 

intxa 

0 

JMAKM 

0 

LMla  2 UNja 

1 10a 

} .tDe 

5 

•a 

,0000 

.0799 

.1512 

.22*9 

.1099 

.1510 

,4599 

Za  ,0000 

19,1 

15.0 

27.9 

19.5 

10,9 

5.1 

2.1 

Z«  .0121 

21.7 

21.0 

17.2 

11.5 

9.9 

1.2 

1.1 

Za  .0251 

9,9 

9.1 

7.2 

4.9 

2.5 

l.l 

.5 

Za  ,0J97 

1.2 

2.9 

2.3 

1.5 

,9 

.4 

.1 

Za  .0551 

.1 

.7 

• 9 

.9 

.2 

.1 

.0 

Z»  ,072« 

.1 

.1 

.1 

.0 

,0 

.0 

.0 

za  ,0V10 

.0 

.0 

.0 

.0 

,0 

.0 

.0 

OT«  .24X- 01 

Tinea  .27U2400 

powtaa 

,200401 

XPa  0, 

in  Axa 

0 

JMAXa 

0 

OT«  .115-01 

Tinea  ,1055400 

POfcfRa 

.290401 

XPa  0, 

INtxa 

0 

JMAXa 

0 

o 

■ 

• 

g= 

o 

« 

o 

TIME*  ,1067400 

POMERa 

.200401 

XPa  0, 

IMAXa 

0 

JMAXa 

0 

DT»  .SJi-01 

Tinea  ,9000400 

BOneRa 

,240401 

XPa  0. 

I H A X a 

0 

JMAXa 

0 

OTa  ,100-01 

Tinea  .M100400 

BOntRa 

,900401 

XPa  0, 

IMAXa 

0 

JMAXa 

0 

0T«  .100-01 

Tinea  ,0200400 

POwtRa 

,900401 

XPa  0, 

IMAXa 

0 

JMAXa 

0 

0T«  .110-01 

Tine*  ,0110400 

PONtRa 

,000 

XPa  1, 

IhAXa 

1 

JMAXa 

2 

LMla  2 UNJa 

2 10a 

« JOa  9 

•a 

,0000 

.0799 

.1532 

.2299 

.1094 

.3510 

.5599 

Za  ,0000 

59.1 

55.5 

99.5 

29.9 

17.1 

5.1 

1.4 

Za  ,0121 

15.7 

11.9 

29.5 

17,9 

10.2 

5.0 

2.0 

Za  ,0291 

19.9 

17.0 

11.7 

9.2 

5.3 

2.9 

1.0 

Za  ,oi«7 

9.7 

7.9 

».2 

9.2 

2.4 

1.1 

.4 

Za  ,0951 

1.1 

1.0 

2.3 

1.9 

.9 

.4 

.1 

Za  ,072m 

1.0 

.9 

.7 

.« 

.2 

.1 

.0 

Za  ,0910 

.2 

.2 

.1 

.1 

.0 

.0 

.0 

DTa  ,170-01 

Tinea  ,0500400 

POMERa 

,000 

XPa  1. 

IMAXa 

0 

JMAXa 

0 

LMla  a LNja 

1 10a 

0 JOa  9 

Mb 

.0000 

,0799 

.1512 

.2299 

.1094 

,1530 

.4599 

Za  .0000 

M9.9 

09,7 

39,0 

29.2 

15.0 

7.1 

1.0 

Za  .0121 

15.9 

11.9 

29.9 

19.1 

10.4 

5.1 

2.1 

Za  ,0251 

19,7 

16.2 

19,9 

9.7 

5.5 

2.7 

1.1 

Za  .0197 

9,2 

9.0 

9.9 

9,5 

2.5 

1.2 

.5 

Za  .0551 

1.5 

1.3 

2.5 

1.7 

1.0 

.4 

.2 

Za  ,072o 

1.1 

1.0 

,9 

.1 

.3 

.1 

.0 

Za  ,0910 

.2 

.2 

,2 

.1 

.0 

.0 

.0 

DT«  .100-01 

TIME*  .0900400 

POMERa 

,900401 

XPa  1, 

IMAXa 

0 

JMAXa 

0 

LMla  a LMJa 

1 109 

0 JOa  9 

Ra 

,0000 

.0799 

• 1532 

.2299 

.3094 

.3530 

.4599 

Za  ,0000 

59,9 

57.1 

95.9 

10.6 

17.9 

5.9 

3.5 

Za  .0121 

19,1 

39.1 

27.2 

19,3 

n.  5 

5,1 

2.1 

Za  .0251 

20,2 

19.7 

19,9 

9.9 

5.7 

2.5 

1.1 

Za  .0197 

9.5 

9.7 

9,9 

9.9 

2.9 

1.1 

.5 

Za  ,0551 

1.7 

1.9 

2.7 

1.9 

1.0 

.5 

.2 

Za  ,072u 

l.l 

1.0 

• 0 

.5 

.1 

.1 

.0 

Za  ,0910 

.1 

.2 

.2 

.1 

.0 

.0 

.0 

OT"  ,100-01 

Tinea  ,0700400 

POnERa 

.900401 

XPa  1. 

IMAXa 

0 

JMAXa 

0 
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iMa 

2 LNJ» 

3 lua 

a JOa 

4 

Ra 

.0000 

.0744 

,1512 

.2290 

.3044 

.3030 

,•594 

{« 

,0000 

41.0 

41.0 

51.1 

3«.3 

19.4 

9.4 

3.9 

Z • 

.0121 

37.1 

35.2 

20.0 

to.o 

10,0 

5.3 

2.2 

{• 

.0251 

20.7 

19.2 

15.2 

to. 2 

5,0 

2.0 

1.2 

2a 

.015; 

9,9 

9.0 

7.1 

4,0 

2.7 

1.3 

.5 

2a 

.055} 

1.9 

3.4 

2.0 

1.9 

1.1 

.5 

.2 

2a 

,0724 

1.2 

1.1 

,9 

.4 

.3 

.1 

.0 

2« 

.0910 

.3 

.3 

.2 

.1 

.0 

,0 

.0 

OTa 

.110*01 

TIRCa  ,4030400 

ROMEO* 

.000 

XRa  1. 

XRAXa 

1 JHAXa 

LH|a 

a injb 

3 JDa 

4 JOa 

4 

Ra 

,0000 

.0744 

• 1512 

.22 40 

.3040 

,3030 

.4599 

2a 

.0000 

54.4 

54,2 

45.5 

30.4 

17.5 

0.5 

1.5 

2* 

.0121 

37.0 

34.1 

20.0 

19,0 

11. 1 

5.4 

2.2 

2a 

.0253 

21.3 

19,0 

15.7 

10,5 

4.1 

2.9 

1.2 

2a 

.0397 

10.3 

9.4 

7.5 

5.0 

2.9 

1.4 

.5 

2a 

.0553 

4.1 

3.0 

3.0 

2.0 

1.1 

.5 

.2 

2a 

.0724 

1.3 

1.2 

.9 

.4 

.3 

.1 

.0 

2a 

.0910 

.3 

.3 

.2 

.1 

.1 

.0 

.0 

OTa 

.170-01 

TXRfa  ,9000400 

ROMfRa 

.000 

XRa  1. 

1RM* 

0 JHAXa 

IHla 

2 L*Ja 

3 I Da 

4 JOa 

4 

' Ra 

,0000 

.0744 

.1532 

.2290 

.3044 

.3030 

.4594 

2a 

• 0000 

50.7 

50,0 

40.3 

27.1 

15.4 

7.4 

1.1 

2a 

.0191 

37.9 

34.1 

29.0 

19.0 

11.2 

5.5 

2.3 

Za 

.0253 

22.0 

20.4 

14,3 

11.0 

4.3 

1.1 

1.2 

2a 

.0197 

10.0 

10.0 

7.9 

5.3 

3.0 

1.5 

.4 

Za 

.0553 

4.4 

4.1 

3.2 

2.1 

1.2 

.4 

.2 

Za 

.0724 

1.5 

1.3 

1.0 

.7 

.4 

.3 

.0 

Za 

.0910 

.4 

,3 

.2 

.2 

.1 

.0 

.0 

OTa 

,100-0! 

Tima  ,5100400 

ROMfRa 

,000401 

XRa  1, 

IRAK* 

0 JHAXa 

LRU 

2 LNJa 

1 108 

4 JOa 

4 

Ra 

,0000 

.0744 

.1532 

• 2290 

.3044 

.3030 

• 45R4 

Za 

.0000 

40,0 

50,0 

«7,1 

SI. 7 

10.2 

0.9 

3.4 

Za 

.0121 

30.2 

34.4 

29.3 

19,7 

11.3 

5.5 

2.3 

Za 

.0233 

22.4 

21.0 

14.7 

ll.i 

4.4 

3.1 

1.1 

Za 

.0197 

11.2 

10,3 

0.1 

5.5 

3.1 

1.5 

.4 

Za 

.0553 

4.4 

4.2 

3,3 

2.2 

1.3 

.4 

.2 

Za 

.0724 

1.5 

1.4 

1.1 

.7 

.* 

.2 

.0 

Za 

,0910 

.4 

.4 

.3 

.2 

.1 

.0 

.0 

OTa 

•100-01 

Tima  ,5200400 

ROMER* 

,000401 

XR*  1. 

IRAK* 

0 JHAXa 

LRI* 

2 LNJa 

1 IOa 

4 JDa 

4 

Ra 

.0000 

• 0744 

.1532 

.2290 

.3044 

.3030 

,0594 

Za 

• 0000 

41.0 

43.0 

52.  T 

35.0 

20.3 

9.9 

4,1 

Za 

.0121 

30.9 

37.4 

30.0 

20,2 

11.* 

5.7 

2*3 

2a 

.0253 

22.0 

21.4 

17.0 

11. 5 

4.4 

3.2 

1.3 

Za 

.0397 

11.5 

10.4 

0.4 

5.0 

3.2 

1.4 

• 4 

Za 

.0553 

4,0 

4.4 

3.5 

2.3 

1.3 

• 4 

.2 

Za 

.0724 

1 • 6 

1.5 

1.2 

.0 

.4 

.2 

.0 

Za 

.0910 

.4 

,4 

.3 

.2 

.1 

.0 

.0 

OTa 

•130-01 

Tima  ,5330400 

ROMER* 

.000 

XRa  1, 

IRAXa 

1 JHAXB 

l"la 

2 LnJb 

1 IOa 

4 JOB 

4 

Ra 

,0000 

.0744 

.1532 

.2290 

.3044 

.3030 

.4594 
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z* 

• oooo 

57.0 

*6.7 

47.2 

31.7 

16.2 

6.9 

3,7 

Z* 

.0121 

39.5 

36.1 

30.6 

20.7 

11.9 

5.6 

2.4 

Za 

.02*3 

23.3 

22.0 

17.5 

11.6 

*.* 

3.3 

1.3 

Za 

.0  3*7 

11.9 

11.0 

6.7 

5.9 

3.' 

1.6 

.* 

Za 

,0**3 

*.l 

4.7 

3.7 

2.5 

1.4 

• 6 

.2 

Za 

.0720 

1.0 

1.* 

1.2 

.6 

.« 

.2 

.1 

Za 

.0910 

.5 

.4 

.3 

.2 

.1 

.0 

.0 

ora 

.170-01 

TlMEa  .5*00*00 

ROmEHb 

.000 

XRa  1. 

IRAK* 

0 JNAxa 

l"ta 

2 L«Ja 

3 10a 

4 JOa 

* 

RS 

.0000 

.076* 

.1532 

.2296 

.3064 

.3830 

.459* 

Za 

• oooo 

51.* 

50.9 

42.1 

26.4 

16.3 

7.9 

3.3 

Za 

,0121 

39.5 

36.2 

31.0 

20.9 

12.0 

5.9 

2.4 

Za 

.02*3 

24.0 

22.7 

16.1 

12.2 

7.0 

3.4 

1.4 

Za 

.0397 

12.4 

11.5 

9.1 

*.l 

3.5 

1.7 

.7 

Za 

.0**3 

5.4 

5.0 

3.9 

2.* 

1.5 

.7 

.3 

Za 

.0720 

1.9 

1.7 

t .4 

.9 

.5 

.2 

.1 

Za 

.0910 

.* 

.5 

.4 

.2 

.1 

.0 

.0 

OT* 

.100-01 

TlnEa  .5*00*00 

ROMERb 

.600*01 

XRa  1. 

INAXB 

0 JRAXa 

LHla 

2 LNJa 

3 . 10a 

4 JO* 

* 

Ra 

.0000 

,076* 

.1532 

• 2296 

.3064 

.3630 

.4596 

Za 

.0000 

*1.6 

5'*.  9 

46.9 

32.9 

16.9 

9.2 

3.6 

Za 

.0121 

39.7 

36.4 

31.2 

21.0 

12.1 

5.9 

2.4 

Za 

.0253 

24.3 

23.0 

16.4 

12.4 

7.1 

3.5 

1.4 

Za 

.039? 

12.7 

11.6 

9.4 

*.3 

3.6 

1.7 

.7 

Za 

.0*51 

*.« 

5.1 

4.1 

2.7 

1.5 

.7 

.3 

Za 

.0720 

2.0 

1.6 

1.4 

.9 

.5 

.2 

.1 

Za 

.0910 

• 5 

.4 

.2 

.1 

.0 

.0 

OT* 

.100-01 

TI«*  .5700*00 

RO«fRB 

.600*01 

XRa  1. 

INAXB 

0 JNAXa 

LMja 

2 L*ja 

3 10a 

4 JOa 

* 

Ra 

.0000 

.076* 

.1532 

.2296 

.30*4 

.3630 

.4596 

Za 

.0000 

*3.0 

*3.0 

54.5 

36.7 

21.0 

10.3 

«.2 

Za 

.0121 

40. a 

39.1 

31.9 

21.5 

12.3 

6.0 

2.5 

Za 

.02*3 

24.7 

23.4 

16.7 

12.6 

7.3 

3.5 

1.4 

Za 

.0397 

13. 0 

12.1 

9.* 

*.* 

3.7 

1.8 

.7 

Za 

.0*53 

5«* 

5.3 

4.2 

2.6 

1.* 

.6 

.3 

Za 

• 072a 

2.1 

1.9 

1.5 

1.0 

.5 

.2 

.1 

Za 

.0910 

.* 

.5 

.4 

.3 

.1 

.0 

.0 

OTa 

.339-01 

TIRCa  .*03**00 

RORfRa 

,009 

XRa  1. 

I NAXa 

1 JHAXa 

l«ia 

3 LNJa 

3 IOa 

4 JD* 

* 

Ra 

,0000 

.07** 

.1532 

.2298 

• 3064 

.3830 

,4596 

Za 

.0000 

50.7 

50.3 

«2.7 

26.6 

16.5 

8.1 

3.3 

Za 

.0121 

*0.6 

39.8 

32.9 

22.2 

12.6 

6.2 

2.6 

Za 

.0253 

25,6 

24,6 

19.6 

13.4 

7.7 

3.6 

1.5 

Za 

.0397 

14.0 

13.1 

10.5 

7.1 

«.0 

2.0 

.8 

Za 

.0*53 

*.5 

6.0 

4.7 

3.2 

1.6 

.6 

.3 

Za 

.072a 

2.4 

2.2 

1.6 

1.2 

.* 

.3 

.1 

Za 

• 0910 

.7 

.7 

.5 

.3 

.2 

.1 

.0 

OT« 

.937-01 

Tine*  .*473*00 

R0MER4 

,000 

XRa  1, 

INAXB 

0 JNAXa 

LNl* 

3 LNJa 

3 IOa 

5 JO* 

5 

Ra 

,0000 

.074* 

.1532 

.2296 

.3064 

,3630 

.459* 

Za 

• 0000 

43.5 

«2.7 

35.6 

24.2 

13.9 

*.6 

2.6 

2k 

.0121 

36.7 

37.7 

31.3 

21.2 

12.2 

6.0 

2.5 
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Z*  .0465 
i*  ,ci*r 
i * .0654 


z«  .0*10  »9  • 

v«»  > » *'•  !i» 


{H6X6  0 J*****  • 


" ~ \sr  v,n  -iri 

i:  a B B &! 

S :tu»  II  sri 

Z.  .074*  *»*  H ,* 

z«  .0*10  l*2  1,1 

0T*  »7S*-01  tl«€«  ,77»i40« 

LMla  J t*»J*  * l0*  s 

«•  .0000  .07*6  .«** 

im  0000  3*.*  **•*  ill 

*:  .Sul  w.*  \v\ 

*0265  2*.l  *;-»  fit 

U .05*7  U.*  *?  j 

s •••  ’•  :•. 

im  .0*10  7.6  1.* 

PT*  .*60-01  tWf  .M.HO  7°«»* 
»-"l>  1 iooir  .0766  .1J» 

j:  3 * S5  » 

• ;Bu  *»  i:  s 

2a  ,0*10  2.*  *•' 


.0000 

.0121 

.0265 

.05*7 

.0665 

,072« 

.0*10 


.07*6 

55.6 

51.6 
26  1 
16.5 

*.0 

6.1 

1.5 


.0*66 
2*  .6 
28.5 
25.8 
17,0 
10.2 

5.1 

2.1 


1552 

51.5 
28.7 
21.1 

12.6 

6.5 

2.6 

.* 


,1552 

27.7 

26.0 

20.6 

15.5 

7.5 

5.2 

1.2 


.1512 

2«.6 

25.« 

1**6 

11.* 

8.5 
6.1 

1.6 


.22*8 

21.2 

1V.5 

16.5 

8.5 

«.2 

1.7 

,6 


,506* 

12.2 

11.2 

8.2 

6.* 

2*8 

1.0 

.1 


.5850 

6.0 

5.5 

6.6 
2.6 
l.t 

.6 

.1 


.•5*6 

2.5 

2.5 

1.6 
.* 
.« 
• 1 
.0 


X6S  I.  1***6  • JHM*  ° 


,22*8 

18.8 

17.7 

16.0 

*.t 

*.* 

2.2 

.8 


,22*8 

16.7 

15.* 

15.1 

*.5 

5.6 

2.7 

1.1 


5066 

.3850 

.65*6 

10.8 

5.5 

2.2 

10.2 

8,1 

5.2 

5.0 

3.* 

2.6 

2.1 

1.6 

1.0 

2.8 

1.3 

.5 

A 

1.2 

.6 

•2 

• 2 

.0 

IHAXV  0 4***«  * 


.5868 

*.7 

*.« 

7.7 

5.5 

1.2 

r* 


.5850 

6.7 

6.5 

5.8 
2.7 

1.5 
.7 
.1 


.65*6 

1.8 

t.* 

1.5 

1.1 

.6 

.2 

.1 


Ola  ,125*00  7 

i>M(6  5 t«4« 

9a 

zs  .0000 
is  .0U1 
is  .0251 
Z«  .01*7 
2a  ,0655 
la  .0726 
Zs  .0*10 

06«6«e*-»— •• 

•a 

Zs  ,0121 
ZS  .0255 
Zs  .04*7 
Zs  .0553 
Zs  .0726 


M^{|  ,9**0600  60*f*6 

I s IDs  5 40s  5 

,0000  .0766  »1*5* 

27.6  26,2  21*7 

26.5  »-J  «•! 

23.2  22.1 
17.*  17,0  13.* 

u.*  ii«2  :»* 
6.6  6.2  5*0 

5.1  2.8  2*5 


1«6X*  0 4***6  0 


,0000 

,10*06 

,1**02 

,16-01 

,10-05 

_ t (l«OI 


.0766 

,67*05 

.86*01 

,t*-01 

.22-03 

« fkatkS 


.1552 

,66*05 

,55*00 

,l*-02 

.70-06 


,22*8 

16,8 

16.3 

12.6 

*.5 

6.2 

5.* 

1.5 

,22*8 

.35*00 

.25-02 

.17-05 

.10-0* 

« 6.AA 


,5066  .3850  *65*6 

8.6  6.2  }*I 

8.5  «.»  J*? 

7.2  5.5  1.* 

5.5  2.7  1.1 

5.6  1.7  .7 

1.6  .6  .5 

,8  *•  •' 

,5066  .5850  .*5*6 

,96-05  .10-0* 

,U-05  ,10-0*  .1**6* 

,10-0*  .10-86  .16-00 
.10-06  .10.00  .16-66 


OERT*» 


oooo  e* 


PRESSURE*  1.0  ATI*. 
Radius  or  damage*  .21*5  cm 

D£PTm  ot  DAMAbE*  .0320  CM 
DECREE  OF  RUR*«3 

•FIN 


BEST  AVAIGBLE  COPY 


04 t * c»»o*tser -5*co?  crofo  Ruisesi 


—————RATO  CARO  NU"P?»  1 — — — — 

S 8,36*2  1.33-0  Mt>n  2.2-1  3.7-1  6. 1-1  »,W  t.-l  l.»l  3, -2 

■••■••••••■••(liTt  CARO  NUAIfl 

1.0**o  3,-1  |,03*0  9.R-1  t .21*2  6. -3  1.31*2  1 .*2  »,•* 

—————RATO  CARO  NUMBER  

.0135  .04T»  3.0 

■•••••••••■■•RATA  CARO  NUMBER  *«•————— 

1.0  0.  .All*  0. 

A T A CARO  NUMBER  *————— 

0.  .0060  .out  . t TT9  37.  it,  .006 

•— — — — -ROT A CARO  NUM8FR  4*.***a***4..*.***** 

104.  30000.  tot,  80000. 

— — — »0TA  CAR08  NUMBER  

100,0  119.6  132.4  102.4  131.1  138.1  164.2  103.3  17*. 3 t79.o 

183.2  187,1  140.7  190.1  197.4  200.0  203,0  2 06.1  208.8  211.0 

213,9  216.2  21 8,*»  220.  A 222.9  223.0  227,0 

.•....■■■■••.niTA  CARO  NUMBER  A................... 

3 ». 36*2  2.0-0  7.0-4  0.*0  1.-2 

OAT  4 CARO  NUMBER  9— — — — — — — 

.008  .1020  3.0 

———OATA  CARR  NUMBER  1 A— ———————————— 

«37,  836.  836. 

— — — — — OATA  CARO  NUMBER  It——— 


1 100 

—————OATA  CARO  NUMBER  I2.6AU88' 


.383 

.133 

3 

13 

••• 

mmmmmmm 

—OATA 

C4RR 

NUMBER 

13— —4 

10.6 

1.30 

.3 

1.00 

2 

3 

0 

20 

—RATA 

COROI 

1 NUMBER 

1 0, CORED-’ 

3.-2 

1.-2 

3.-2 

4. AO 

t.*0 

3.*0 

mmm 

—ROTA 

CARD 

NUMBER 

13— —4 

13 

9mm 

— DATA 

CARO 

NUMBER 

t 6— — • 

i 

7 

1 

7 

1 

0 

1 

- 

••• 

—DATA 

CARO 

NUMBER 

••••• 

0,*0 

••• 

—OATA 

CARO 

NUMNFR 

19—— 

»•••• 

1 

i.*2 

*••• 

•— OATA 

CARO 

NUMBER 

19—— 

»••••< 

' V 

4 

1.0*0 

1.0*0 

1.0*0 

1,0*0 

—RATA 

CARO 

NUMBER 

20— — < 

1 

1,0*0 

1.0*0 

0,0*2 

axgr.r 


Z«*  1.00  l.OF  1.00  1.00 

OMt  a .1000*00  .1000*1  .1000*05  .9000*3 

or  *■ 

.125-wl 

.125-01 

.125-01 

.125-01 

.250-0? 

.250-02 

.250-02 

,?50-02 

»75o*U2 

.750-02 

.750-02' 

.750-02 

.336-01 

,917-01 

.568-01 

.719-01 

• 960*0 1 

.125*00 

.162*00 

.211*00 

.279600 

.357600 

,969600 

,603*00 

.783*00 

.102*01 

.132*01 

.172*01 

.229*01 

.291601 

,17«*01 

.992601 

PQMfcffa 

.900*01 

.900601 

.900*01 

.900*01 

.100601 

.100*01 

.100601 

.100601 

.300*01 

.300601 

.300*01 

,300601 

.000 

.000 

,000 

.000 

.000 

.000 

.000 

.000 

.000 

,000 

.000 

,000 

.000 

XPa 

.000 

.000 

,000 

.000 

.000 

.000 

.000 

1. 

1. 

1 . 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

t. 

1. 

1. 

1. 

1. 

1. 

1 « 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

Ha 

.0000 

.0766 

.1532 

• 22** 

.3069 

.3*30 

.9596 

.5362 

.6128 

.6*99 

.7660 

.8926 

.9192 

.9958 

1.0729 

1.1990 

ZB 

.0000 

.0121 

.0296 

.0375 

.0508 

.0695 

.0786 

,0932 

.10*3  .123* 

SlGPAa  .363*00 

.139* 

.1569 

.1715 

.1911 

.2092 

.22*0 

MRS 

•103*ol 

,999600 

.796*00 

•500600 

.265600 

.119600 

.575-01 

.611-02 

.156-02 

.392-03 

,6.35-09 

.101-09 

.136-05 

.156-06 

ASSCa  656.  AB8NB 

PS6, 

CBa  1.000 

i CON  1 a 

.00013 

C0N2a  . 

0013* 

00»  1.050  Ola  .500  02a  1.050  03a  .900  DE^IDa  .0090 

MAlka  ,00  RfcM  ,01  »MOa  .2200  SMia  .JTOI)  »H2a  .0300 

TOEKHa  .1779  rta  22.  TfPJOa  ,0121  TOa  37.  T*WE*Ta  .0000 

NOa  ,950  ala  ,*30  *2*  ,800  »3a  .050  «UVElat0.600 

XC*  1.300  ZDfcPa  .006  ZRa  ,5  22«  1,00 

iPMUEal  LASfUaZ  tarn  3 LZa  3 NalS  N}a  5 hb15  Hla  1 

NPULSE*  3 NGXaO  *TXb20 

Zbia  ,121*01  hm  ,600*02  OTEMPa  131.  DwPa  .100603 
SHPa  .200-01 

CUTa  .1350  9 1 Ha  .3030 

OPULSC* 

.500*01  ,100*01  ,300*01 
POHEHCa 

,900601  .100601  ,300601 

101a  1 102a  7 ITVPEa  1 JOta  1 J02a  7 KTVPEaO 

Tllil-2a 
.000  .100603 

TM9 

.0900  .1920  3.0000 

A8Sa 

837.  956.  *56. 

Ttta 

.0135  .0970  3.0000 

It* 

,0000  .011*  .0000 

GAMd'iJa  199,0  0A*< 1 *21 aSOOOO,  0*8(?»1)a  292.0  0*M(2,2)a#0000. 
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OR*  ,0766  RNa  ,9668  DZ*  .0121  ZHa  ,2280 

CON* 

.0011  .0012  .0012  .0012  .00,12 

NOa  0 

,0012 

.0012  .0012 

.0012 

.0012 

,0012  .0012 

.0012 

.0002 

.0002  .0002 

V8He 

.7416 

.8091 

,8091  .8891 

.0091 

.8051 

,0051  .8051 

.8851 

.8891 

.8891  .0891 

.8891 

.3941 

,3941  .3941 

HEAT  DEPOSIT  ION  RATES*— — — — 

R*  .0000  .0706  .1932 

.2298 

• 3064 

.3830 

.4996 

Z*  .oooo 

.169403 

.156403  .123403 

.021402 

469402  . 

228402 

.945401 

Z*  .0121 

.929400 

.488400  ,384400 

,297400 

1*7400  . 

714-01 

.296-01 

Z*  .0266 

.174-04 

•161-04  ,127-04 

.840-09 

404-09  .235-05 

.975-06 

Z*  .0375 

.419-09 

.303-09  .301-09 

.202-09 

115-09  . 

960-10 

.232-10 

Z*  .0900 

.000 

.000  ,000 

,000 

000  , 

000 

.000 

Z*  . 0oU5 

.000 

,000  ,000  ' 

,000 

000  . 

000 

.000 

Z*  .0706 

.000 

.000  . .000 

,000 

000  . 

000 

.000 

DT*  .129-01 

TlMEa  ,1290-01  POwERa 

.400401 

XPa  l. 

inAX*15  jnAxais 

Ra 

.0000 

.0766  .1532 

.2298 

.306* 

.3*30 

,4«9* 

Z*  .0000 

10.1 

9.3  7.3 

«.9 

2.0 

1.4 

.6 

Z*  .0121 

.9 

.5  .« 

.3 

.1 

.1 

.0 

Z*  .0246 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Z*  .0379 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Z*  .0908 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Z*  .0649 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Z*  .0706 

.0 

.0  .0 

.0 

.0 

.0 

.0 

DT*  .129-01 

Tine*  .; 

2900-01  PONlRa 

.400401 

xp*  1. 

INAXa 

0 JHAXa  0 

Ra 

.0000 

.0766  .1912 

.2290 

• 3064 

,3030 

.4596 

Z«  .0000 

18.0 

16.7.  13,1 

0.0 

3.0 

2.4 

1.0 

Za  .0121 

1,9 

1.7  1.8 

.9 

.9 

.3 

.1 

Za  .0246 

.1 

.1  .1 

.1 

.« 

.0 

.0 

Za  .0379 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Za  .0908 

.0 

.0  ,0 

.0 

.0 

.0 

.0 

Za  .0649 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Za  .0706 

.0 

.0  .0 

.0 

.0 

.0 

.0 

DT*  .129-01 

TIME*  .: 

3790-01  POWER* 

,400401 

XPa  1. 

in  ax* 

0 JHAXa  0 

Ra 

.0000 

,0766  ,1532 

.2290 

.3064 

.3030 

.4596 

Za  .0000 

24.9 

22.6  17.0 

11.9 

6.0 

3.3 

1.4 

Za  .0121 

3.7 

3.4  2.7 

1.0 

1.0 

.3 

.2 

Za  .0246 

.4 

.3  .3 

.2 

.1 

.0 

.0 

Za  ,0379 

• 0 

.0  .0 

.0 

.0 

.0 

.0 

Za  .0908 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Za  .0649 

.0 

.0  .0 

.0 

.0 

.0 

.0 

Za  .0706 

.0 
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.0 

.0 

.0 

.0 
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0 JHAXa  0 

Ra 
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.0766  .1532 

.2290 

• 3064 

.3030 

.45*6 

Za  .0000 

29,9 

27.6  21,7 

14.9 

0.3 

4,0 

1.7 

Za  .0121 

9.7 

5.3  4.2 

2.0 

1.6 

.0 

.3 
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.4 

.2 

.1 

.0 
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.1 
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.0 

.0 
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.0 
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.0 

.0 

.0 

.0 
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.0 
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.0 

.0 

.0 

.0 
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.0 

.0  .0 

.0 

.0 

.0 

.0 
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Zs 
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26.9 
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,1 
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.9 

• 8 

,6 
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A 
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Zs 

Zs 

,0508 
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.0 
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.0 
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A 
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.0 

.0 

.0 

Zs 

,076b 

.0 

.0 

.0 
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ns 

TIMES  .5500-01 
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POSERS 

.1532 
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TMAX* 

.3630 
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Z* 

Zs 

Z« 

.oooo 

.0121 

.0266 

26.5 

6.5 

.9 

26.3 

6.0 

.9 

20.7 

6.7 

.7 

4 

13.9 
3.2 
• 3. 

7.9 

1,6 

.3 

.0 

> •© 

.9 
.1 
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Zs 

Zs 

.0375 

.0508 

.1 

.0 

• 1 
.0 
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.0 

A 
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.0 

A 
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.0 
.0 

.0 

.0 

Zs 
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.0 

.0 
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A 

• * 
o 
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.0 
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Zs 
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.0 
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As 
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POSER* 

.1532 

,100-01 

.2296 

XPs  1 . 

,3066 

IMAXS 

.3630 

X A 

Zs  . 

Zs 

Zs 

,0000 

.0121 

.0266 

26.0 

6.9 

1.1 

25.8 

6.6 

1.0 

20.3 

5.0 

.8 

13.6 

3.3 

.5 

A 

7 .6 
1.9 
.3 
.0 

.9 

.1 

.0 

Zs 

.0375 

.1 

.1 

*1 

• v 

A 

• * 

, 0 

.0 

Zs 

.0508 

.0 

.0 

« 0 

• v 

. A 

t v 

.0 

Zs 

.0665 

.0 

.0 

• 0 

• v 

A . 

• 

aO 

-.0 

Zs 

,0786 

.0 

.0 

• 0 

• v 

OTS 

.250-02 

TIMES  .6000-01 

POWERS 

,100-01 

*p»  t • 

1MAXS 

LMlS  0 INJS  0 10S 

ns  .oooo 

2 JOS  6 

,0766  .1332 

.2296 

4 1 5 

1 L. 

.3630 

1.7 

I' 

u 

l* 

zs 

z« 

z* 

Z« 


.0000 
.0  lie  i 
,oe«6 

,0375 

.0500 

.0665 

.0786 


27.6 

7.2 

1.2 
.1 
.0 
.0 
.0 


25.3 

6.7 

1.1 

.1 

.0 

.0 

.0 


5.2 
• 6 
.1 
.0 
.0 
.0 


OT»  ,750-02  TIME*  ,6750-01  PO*E«« 
IMIS  0 INjs  0 IDs  2 JOs  5 

ns  ,0000  ,0766  .1532 
.0000  20,2  27,0  21.2 
,0121  «.2  7,5  3.0 
. 0206  1.5  1,0  1»1 
,0375  .2  •*  *' 
,0508  .0  .0  *0 
,0605  .0  .0  .0 
.0766  .0  .0  .0 


Z* 

Zs 

Zs 

Zs 

ZB 

Z« 

ZB 


3.3 

t ^ 
.1 
.0 
.0 

.0 

,300-01 

,2206 
16.2 
«,0 
.7 
.1 
.0 
,0 
.0 


2.0 

.3 

.0 

.0 

.0 

.0 


1.0 

.1 

.0 

.0 

.0 

.0 


D JMAXS  0 
,0506 
1.6 
.3 
.0 
.0 
.0 
.0 
,0 

0 JMAXS  0 
.0506 
1.0 
.« 

.0 

.0 

.0 

.0 

.0 

0 JMAXS  0 
.0506 
1.5 
.0  . 

.1 

.0 

.0 

.0 

.0 

o JMAXS  0 
.0506 

1.3 

.0 

.1 

.0 

.0 

.0 

.0 


KPs  1.  1HA*b  0 JMAXS  0 


.3060 

6,1 

2.3 

.0 

.0 

.0 

.0 

.0 


.3630 

3.0 

1.1 

.2 

. .0 
. .0 
.0 
.0 


.0506 

1.6 

.5 

.1 

.0 

.0 

.0 

.0 


OT*  .750-02  TIMES  ,7500-01  POSER*  .300-01  *Ps  1.  !**<•  OJA 


LMJs  0 IMJs 
ns 

Zs  ,0000 

Zs  ,0121 


0 10s 

,0000 
30.0 
0.2 


JO* 
,0766 
28,5 
6.6 


,1532  .2206 

22,6.  15.0 

6.6  6.5 


.3066  .3630  ,6506 

6.6  6.2  1.7 

2.5  1.2  •* 


BEST  AVAIOBLE  COPY 


157 


Z« 

.0246 

1.6 

1.7 

1.3 

.9 

.5 

• 2 

.1 

ZB 

,0375 

.3 

.2 

.2 

.1 

.1 

.0 

.0 

ZB 

• o5oe 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

ZB 

.Obas 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

Zb 

.0706 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

0T« 

.750-02 

TIMES  .6250-01 

POwf R* 

,300*01 

XPB  1, 

IMAXb 

0 JMAXS  0 

IMJB 

0 LNJa 

0 IDS 

2 ifOs 

5 

»■ 

.0000 

.0766 

.1532 

.2296 

.3064 

.1*30 

.4596 

ZB 

.0000 

32.5 

30,0 

23.6 

IS. ft 

9.0 

4.4 

1.8 

ZB 

.0121 

10.1 

9.3 

7.3 

4.9 

2. • 

1*« 

.6 

ZB 

.02«6 

2.2 

2.0 

1*6 

1.1 

.6 

.1 

.1 

ZB 

.0375 

.3 

.3 

.2 

.2 

.1 

.0 

.0 

ZB 

.0506 

.0 

.0 

.0 

.0 

.0 

.0 

• 0 , 

ZB 

.0645 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

Zs 

.0766 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

DT» 

.750-02 

time*  ,9000-01 

POWERS 

.300*01 

XPB  1, 

IMAXB 

0 JMA  in  0 

LMla 

0 1.NJ6 

0 IDs 

2 JOB 

5 

PS 

.0000 

.0766 

.1532 

.229* 

,3064 

.3630 

.4596 

ZB 

.0000 

36.0 

31.3 

24.7 

16.5 

9.4 

4.6 

1.9 

2b 

.0121 

11.1 

10.2 

ft.l 

5.4 

3.1 

I.S 

.6 

ZB 

.0206 

2.4 

1.9 

1.1 

,7 

.3 

.1 

ZB 

.0375 

.« 

.4 

.3 

.2 

.1 

.0 

.0 

ZB 

.0506 

.1 

.0 

.0 

.0 

.0 

.0 

,0 

ZS 

.06«5 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

ZB 

.0766 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

DTs 

.336-01 

TIMES  ,1236*00 

POWERb 

.000 

XPB  1, 

IMAXb 

0 JMRXS 

LMIb 

0 LNJs 

0 IDs 

2 JOB 

4 

RB 

,0000 

.0766 

.1332 

• 22 96 

,3084 

,3*30 

.*596 

ZB 

.0000 

22.4 

20.7 

16.3 

10.9 

*•2 

3.0 

1.2 

ZB 

.0121 

13.3 

12.2 

9.6 

6.5 

3.7 

1.1 

.7 

zs 

.0246 

4.3 

4.0 

3.1 

2.1 

1.2 

• ft 

.2 

ZB 

.0375 

1.0 

.9 

.7 

.5 

.1 

.1 

.0 

ZS 

,050ft 

.2 

.2 

.1 

.1 

.0 

.0 

.0 

ZB 

.06«5 

.0 

.0 

.0 

*0 

.0 

.0 

.0 

zs 

.0766 

.0 

.0 

.0 

.0 

.0 

.0 

.0 

OTB 

.437-01 

TIMES  ,1673*00 

POWER* 

,000 

XPB  » . 

IMAXB 

0 JMAXS 

IMIS 

0 IMJS 

0 IDs 

2 JOB 

4 

R* 

,0000 

.0766 

,1532 

.229* 

• 306w 

.3830 

.•596 

ZB 

.0000 

16,4 

13.1 

11.9 

8.0 

1.2 

.9 

ZB 

.0121 

12.7 

11.7 

9,3 

6.1 

3.5 

1.7 

.7 

ZB 

.0246 

5.9 

5,4 

4.3 

2,9 

1.* 

.3 

.3 

ZS 

.0375 

1.9 

1.7 

1.4 

.9 

,5 

• 2 

.1 

ZB 

.0506 

* 5 

.4 

.3 

.2 

.1 

.0 

.0 

ZB 

.0645 

.1 

.1 

.1 

.0 

.0 

.0 

• 0 

ZB 

.0766 

.0 

.0 

.0 

. 0 

.0 

.0 

.8 

OTB 

.566-01 

TIMEb  ,2242*00 

POWERS 

,000 

*>■  1 . 

IMAXB 

0 JMAXB 

LMIB 

0 L*J* 

0 IDs 

2 JOB 

3 

Zb 

Pa 

.0000 

• 0766 

.1532 

.229ft 

.3064 

*38)0 

,*596 

.0000 

13.0 

11.9 

9.4 

*.3 

3.6 

1.7 

.7 

ZB 

.0121 

11.2 

10.3 

ft.l 

5.4 

3,1 

1.5 

• 6 

ZB 

,0246 

6.6 

6.2 

4.9 

3.3 

1.9 

.9 

,4 

Zb 

.037% 

2.9 

2.7 

2.1 

1.4 

.ft 

.4 

.1 

156 


z* 

.0506 

.9 

.9 

.7 

.6 

.2 

.1 

.0 

Z* 

.0665 

.2 

.2 

.2 

.1 

,0 

.0 

.0 

Zb 

,070* 

.0 

.0 

.0 

.0 

.0 

.0 

• 0 . 

DT« 

,739-01 

TIMER  .26*1*00 

PO-FRb 

,000 

X P «t  1 

, IMAXB 

0 JMAXB 

L H 1 B 

0 I.N  J» 

0 tU* 

2 JOB 

3 

Pa 

.0000 

.0766 

.153* 

.2298 

.3066 

.3830 

.6596 

l B 

,0000 

10.7 

6.8 

7.7 

5.2 

1.0 

1.6 

• 6 

Z« 

.0121 

6.7 

6.6 

7.0 

6.7 

2.7 

1.3 

.5 

Z« 

.0266 

6.6 

6.3 

5.0 

3.3 

1.9 

.9 

.6 

ZB 

,0375 

3.8 

3.6 

2.7 

1.8 

1.0 

.5 

.2 

Z» 

,0508 

i • 6 

1.5 

l.l 

.8 

.6 

.2 

.1 

ZB 

,06«5 

.5 

.5 

.6 

.2 

.1 

.0 

.0 

ZB 

,0766 

.1 

.1 

• 1 

.0 

.0 

.0 

.0 

OTB 

,060-01 

T I NEB  ,3661*00 

POnERb 

.000 

XPb  1 

. IMAXb 

0 JMAXB 

LMI* 

0 IN  J* 

0 108 

2 JO* 

2 

»■ 

,0000 

,0766 

.1532 

.2298 

.3086 

.3830 

,659b 

Za 

.0000 

8.6 

8.2 

6.6 

6.3 

2.5 

1.2 

.6 

Zb 

.0121 

8.6 

7.6 

6.0 

6.1 

2 , 3 

1.1 

.6 

Zb 

,0206 

6.6 

6,0 

6.7 

3.2 

1.8 

.9 

.3 

Zb 

.0375 

6.2 

3.9 

3.1 

2.0 

1.2 

.5 

.2 

ZB. 

, 050B 

2.2 

2.0 

1 • 6 

1.1 

.6 

.3 

.1 

ZB 

.0665 

i.O 

.9 

.7 

.6 

.2 

.1 

.0 

ZB 

.0706 

.3 

.3 

.2 

.1 

.1 

.0 

.0 

0T« 

.125+00 

TImEb  ,51«0*00 

POKE  R* 

.000 

XPB  1 

, IMAXB 

0 JMAXB 

LMJB 

0 LNJa 

0 10a 

2 JOa 

1 

RB 

.0000 

.0766 

.1532 

.2298 

.3066 

.3830 

.6596 

Zb 

.0000 

7.5 

8.9 

5.6 

3.6 

2.1 

1.0 

.6 

Za 

.0121 

7.2 

6.6 

5.2 

3.5 

2.0 

.9 

.6 

ZB 

.0266 

6.0 

5.5 

6.3 

2.9 

1.7 

.3 

Zb 

.0375 

6.6 

6.0 

3.2 

2.1 

1.2 

.5 

.2 

ZB 

.0508 

2.7 

2.5 

2.0 

1.3 

.7 

.3 

.1 

Za 

.0665 

1.6 

1.3 

1.0 

.7 

.6 

.1 

.0 

Za 

.0786 

• ^ 

• 

.6 

.3 

.1 

.0 

.0 

Ra 

.0000 

.0766 

.1532 

.2298 

.3066 

.3830 

.6596 

Zb 

.0121 

.66-03 

.27-03 

,75-06 

.10-09 

.10-09 

,10-09 

.10-09 

ZB 

.0266 

.10-09 

,10-09 

.10-09 

.10-09 

.10-09 

.10-09 

,10-09 

Za 

.0375 

.10-09 

.10-09 

.10-09 

,10-09 

.10-09 

,10-09 

,10-09 

Zb 

.0508 

.10-09 

,10-09 

,10-09 

.10-09 

.10-09 

,10-09 

.10-09 

ZB 

,0665 

.10-09 

.10-09 

,10-09 

.10-09 

.10-09 

,10-09 

.10-09 

ZB 

,0766 

.10-09 

.10-09 

.10-09 

.10-09 

.10-09 

.10-09 

.10-09 

BEAK 

PRESSURE^  1,0 

ATM. 

DEPTHS 

,0000  CM 

DEGREE  UF  BURN* 0 


• FIN 


159 


